with(combinat);with(LinearAlgebra):with(plots):
N1FJJENoaUc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IkklYmVsbEdGJ0kpYmlub21pYWxHRiRJKWNhcnRwcm9kR0YnSSpjaGFyYWN0ZXJHRidJJ2Nob29zZUdGJ0ksY29tcG9zaXRpb25HRidJKWNvbmpwYXJ0R0YnSStkZWNvZGVwYXJ0R0YnSStlbmNvZGVwYXJ0R0YnSSpldWxlcmlhbjFHRidJKmV1bGVyaWFuMkdGJ0kqZmlib25hY2NpR0YnSSpmaXJzdGNvbWJHRidJKmZpcnN0cGFydEdGJ0kqZmlyc3RwZXJtR0YnSSlncmF5Y29kZUdGJ0kpaW50dG92ZWNHRidJKWxhc3Rjb21iR0YnSSlsYXN0cGFydEdGJ0kpbGFzdHBlcm1HRidJLG11bHRpbm9taWFsR0YnSSluZXh0Y29tYkdGJ0kpbmV4dHBhcnRHRidJKW5leHRwZXJtR0YnSSludW1iY29tYkdGJ0kpbnVtYmNvbXBHRidJKW51bWJwYXJ0R0YnSSludW1icGVybUdGJ0kqcGFydGl0aW9uR0YnSShwZXJtdXRlR0YnSSlwb3dlcnNldEdGJ0kpcHJldmNvbWJHRidJKXByZXZwYXJ0R0YnSSlwcmV2cGVybUdGJ0kpcmFuZGNvbWJHRidJKXJhbmRwYXJ0R0YnSSlyYW5kcGVybUdGJ0kpcmFua2NvbWJHRidJKXJhbmtwZXJtR0YnSS1zZXRwYXJ0aXRpb25HRidJKnN0aXJsaW5nMUdGJ0kqc3RpcmxpbmcyR0YnSShzdWJzZXRzR0YnSSt1bnJhbmtjb21iR0YnSSt1bnJhbmtwZXJtR0YnSSl2ZWN0b2ludEdGJw==
rown:=proc(n); local a,j; a:=Vector(n+1); for j from 0 to n do a[j+1]:=numbcomb(n,j): od; RETURN(Transpose(a)); end proc;
LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSVyb3duR0YoZio2I0kibkdGKDYkSSJhR0YoSSJqR0YoRihGKEMlPjgkLUknVmVjdG9yR0YoNiMsJjkkIiIiRjxGPD8oOCUiIiFGPEY7SSV0cnVlR0YmPiZGNjYjLCZGPkY8RjxGPC1fSSljb21iaW5hdEdGJUkpbnVtYmNvbWJHRig2JEY7Rj4tSSdSRVRVUk5HRiY2Iy1fSS5MaW5lYXJBbGdlYnJhR0YlSSpUcmFuc3Bvc2VHRig2I0Y2RihGKEYoNyNGLg==
rown(7)
LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyMtSSdSVEFCTEVHRig2JSI1Iz0sME91U3VZJT0tSSdWRUNUT1JHRig2IzcqLUkjbW5HNiRGJi9JK21vZHVsZW5hbWVHRihGJDYjUSIxRigtRjU2I1EiN0YoLUY1NiNRIzIxRigtRjU2I1EjMzVGKEZBRj5GO0Y0JkknVmVjdG9yR0YlNiNJJHJvd0dGKDcjLUZENiMvSSQlaWRHRihGLw==
pasn:=proc(n); local a,j,k; a:=Matrix(n+1); for k from 0 to n do for j from 0 to n do a[j+1,k+1]:=numbcomb(j,k): od; od; RETURN(a); end proc;
LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSVwYXNuR0YoZio2I0kibkdGKDYlSSJhR0YoSSJqR0YoSSJrR0YoRihGKEMlPjgkLUknTWF0cml4R0YoNiMsJjkkIiIiRj1GPT8oOCYiIiFGPUY8SSV0cnVlR0YmPyg4JUZARj1GPEZBPiZGNzYkLCZGQ0Y9Rj1GPSwmRj9GPUY9Rj0tX0kpY29tYmluYXRHRiVJKW51bWJjb21iR0YoNiRGQ0Y/LUknUkVUVVJOR0YmNiNGN0YoRihGKDcjRi4=
pasn(5)
LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyMtSSdSVEFCTEVHRig2JSI1VVJdZ1YyV25XPS1JJ01BVFJJWEdGKDYjNyg3KC1JI21uRzYkRiYvSSttb2R1bGVuYW1lR0YoRiQ2I1EiMUYoLUY2NiNRIjBGKEY8RjxGPEY8NyhGNUY1RjxGPEY8Rjw3KEY1LUY2NiNRIjJGKEY1RjxGPEY8NyhGNS1GNjYjUSIzRihGRUY1RjxGPDcoRjUtRjY2I1EiNEYoLUY2NiNRIjZGKEZJRjVGPDcoRjUtRjY2I1EiNUYoLUY2NiNRIzEwRihGU0ZQRjVJJ01hdHJpeEdGJTcjLUZWNiMvSSQlaWRHRihGLw==
MatrixInverse(pasn(5));
LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyMtSSdSVEFCTEVHRig2JSI1YSEpW2dWMlduVz0tSSdNQVRSSVhHRig2IzcoNygtSSNtbkc2JEYmL0krbW9kdWxlbmFtZUdGKEYkNiNRIjFGKC1GNjYjUSIwRihGPEY8RjxGPDcoLUY2NiNRKyZ1bWludXMwOzFGKEY1RjxGPEY8Rjw3KEY1LUY2NiNRKyZ1bWludXMwOzJGKEY1RjxGPEY8NyhGQC1GNjYjUSIzRigtRjY2I1ErJnVtaW51czA7M0YoRjVGPEY8NyhGNS1GNjYjUSsmdW1pbnVzMDs0RigtRjY2I1EiNkYoRk9GNUY8NyhGQC1GNjYjUSI1RigtRjY2I1EsJnVtaW51czA7MTBGKC1GNjYjUSMxMEYoLUY2NiNRKyZ1bWludXMwOzVGKEY1SSdNYXRyaXhHRiU3Iy1GXG82Iy9JJCVpZEdGKEYv
numbcomb(3,5);
IiIh
prodn:=proc(n); local a,j; a:=1; for j from 0 to n do a:=a*numbcomb(n,j): od; RETURN(a); end proc;
LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSZwcm9kbkdGKGYqNiNJIm5HRig2JEkiYUdGKEkiakdGKEYoRihDJT44JCIiIj8oOCUiIiFGNzkkSSV0cnVlR0YmPkY2KiZGNkY3LV9JKWNvbWJpbmF0R0YlSSludW1iY29tYkdGKDYkRjtGOUY3LUknUkVUVVJOR0YmNiNGNkYoRihGKDcjRi4=
prodn(0);
IiIi
prodn(4);
IiMnKg==
prodn(5);
IiUrRA==
seq(prodn(j),j=1..8);
NioiIiIiIiMiIioiIycqIiUrRCInKz87IilENVpFIiw/Ymo5NSI=
pl:=[]:for j from 1 to 20 do pl:=[op(pl),[j,evalf(prodn(j+1)*prodn(j-1)/(prodn(j)^2))]]; od: pl;
NzY3JCIiIiQiIiMiIiE3JEYmJCIrKysrXUEhIio3JCIiJCQiK3EuUHFCRis3JCIiJSQiK11pU1RDRis3JCIiJiQiKysrSylbI0YrNyQiIickIitzamlAREYrNyQiIigkIisocCpcWURGKzckIiIpJCIrOVh5bERGKzckIiIqJCIrI3p1NmUjRis3JCIjNSQiK2dDdSRmI0YrNyQiIzYkIis3ISo+L0VGKzckIiM3JCIrIUhOSWgjRis3JCIjOCQiKykpM2c/RUYrNyQiIzkkIitjOjpGRUYrNyQiIzokIis9KHlHaiNGKzckIiM7JCIrKFxHemojRis3JCIjPCQiK3ZWVFVFRis3JCIjPSQiK0BlVVlFRis3JCIjPiQiK0ZWLl1FRis3JCIjPyQiKzB4SGBFRis=
pointplot(pl);
NigtJSdQT0lOVFNHNjY3JCQiIzUhIiIkIiM/ISIiNyQkIiM/ISIiJCIkRCMhIiM3JCQiI0khIiIkIipQcS5QIyEiKTckJCIjUyEiIiQiKkQxOVcjISIpNyQkIiNdISIiJCInSylbIyEiJjckJCIjZyEiIiQiK3NqaUBEISIqNyQkIiNxISIiJCIrKHAqXFlEISIqNyQkIiMhKSEiIiQiKzlYeWxEISIqNyQkIiMhKiEiIiQiKyN6dTZlIyEiKjckJCIkKyIhIiIkIipZVVBmIyEiKTckJCIkNSIhIiIkIis3ISo+L0UhIio3JCQiJD8iISIiJCIqSE5JaCMhIik3JCQiJEkiISIiJCIrKSkzZz9FISIqNyQkIiRTIiEiIiQiK2M6OkZFISIqNyQkIiRdIiEiIiQiKz0oeUdqIyEiKjckJCIkZyIhIiIkIisoXEd6aiMhIio3JCQiJHEiISIiJCIrdlZUVUUhIio3JCQiJCE9ISIiJCIrQGVVWUUhIio3JCQiJCE+ISIiJCIrRlYuXUUhIio3JCQiJCsjISIiJCIrMHhIYEUhIiotJiUmX0FYSVNHNiMiIiI2Ji0lJkNPTE9SRzYmJSRSR0JHJCIiISEiIiQiIiEhIiIkIiIhISIiLSUqTElORVNUWUxFRzYjIiIhLSUqVEhJQ0tORVNTRzYjIiIhLSUtVFJBTlNQQVJFTkNZRzYjJCIiISEiIi0mJSZfQVhJU0c2IyIiIzYmLSUmQ09MT1JHNiYlJFJHQkckIiIhISIiJCIiISEiIiQiIiEhIiItJSpMSU5FU1RZTEVHNiMiIiEtJSpUSElDS05FU1NHNiMiIiEtJS1UUkFOU1BBUkVOQ1lHNiMkIiIhISIiLSUpX1ZJU0lCTEVHNiMiIiItJSVST09URzYnLSUpQk9VTkRTX1hHNiMkIiIhISIiLSUpQk9VTkRTX1lHNiMkIiIhISIiLSUtQk9VTkRTX1dJRFRIRzYjJCIlK1MhIiItJS5CT1VORFNfSEVJR0hURzYjJCIlK1MhIiItJSlDSElMRFJFTkc2Ii0lK0FOTk9UQVRJT05HNictJSlCT1VORFNfWEc2IyQiIiEhIiItJSlCT1VORFNfWUc2IyQiIiEhIiItJS1CT1VORFNfV0lEVEhHNiMkIiUrUyEiIi0lLkJPVU5EU19IRUlHSFRHNiMkIiUrUyEiIi0lKUNISUxEUkVORzYiRzYi
for j from 1 to 10 do [expand( (1+1/j)^j), prodn(j+1)*prodn(j-1)/(prodn(j)^2)]; od;
NyQiIiNGIw==
NyQjIiIqIiIlRiM=
NyQjIiNrIiNGRiM=
NyQjIiREJyIkYyNGIw==
NyQjIiV3eCIlREpGIw==
NyQjIidcdzYiJmNtJUYj
NyQjIihfcjQjIidWTiMpRiM=
NyQjIilAbi9WIik7c3g7RiM=
NyQjIisrKysrNSIqKls/dVFGIw==
NyQjIiwsWVVQZiMiLCsrKysrIkYj
limit((1+1/x)^x,x=infinity);
LUkkZXhwRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiMiIiI=
plot((1+1/x)^x,x=1..20);
NiotJSdDVVJWRVNHNiQ3ZHc3JCQiIzUhIiIkIiM/ISIiNyQkIjJvUXhhXCUqKSo0IiEjOyQiMTgtJlskKnpsLiMhIzo3JCQiMmtIZj07N289IiEjOyQiMnRPMFBEXmExIyEjOzckJCIyTnFTIm8sYyVHIiEjOyQiMktdJCpHPSczJjQjISM7NyQkIjI7SGU7NmNIUSIhIzskIjI4OSNlZz9HQUAhIzs3JCQiMjI7S2tSJSkzWyIhIzskIjIwP04jPTwxWkAhIzs3JCQiMkViNUBYdztkIiEjOyQiMjkhUV4mR1Yjb0AhIzs3JCQiMUFXKW9PJ29sOyEjOiQiMjpeTnpHbCYpPSMhIzs3JCQiMjI4RV9iNkh3IiEjOyQiMmMjekU+cS8zQSEjOzckJCIyKXlkOlRcIylmPSEjOyQiMSgqMyQqSCN6Z0EjISM6NyQkIjIqb1B2cUFeZj4hIzskIjIoKip6YyN5TUxDIyEjOzckJCIxQlkjXCNwSlo/ISM6JCIyMmYjZUFZYmRBISM7NyQkIjJrQVghcFQ7WUAhIzskIjJ2RUc6IzRkc0EhIzs3JCQiMU9zVypHPGFDIyEjOiQiMmNjKm9WJypvJ0cjISM7NyQkIjFgMDZpZzFUQiEjOiQiMWZBLFgqcCUqSCMhIzo3JCQiMmAtMDVKQ3pVIyEjOyQiMDwleSQpUVY1QiEjOTckJCIyOURdKzwyN2AjISM7JCIyJSp5Ti82VkZLIyEjOzckJCIyQ1snSCpILCg9RSEjOyQiMUwyPE84Z0tCISM6NyQkIjJ4YDI6eHgvcyMhIzskIjBlakFcbE1NIyEjOTckJCIxcFF4JT5uMCJHISM6JCIyODooeWA+ZV9CISM7NyQkIjE4RF1xJjQlNEghIzokIjFOTEhSYTNpQiEjOjckJCIyKDQ+UScpM2AuSSEjOyQiMkYsMVVZJm9xQiEjOzckJCIxUXdfMG10LEohIzokIjI5RWUoKltEI3pCISM7NyQkIjFiNUA3LCM+PiQhIzokIjJFc0ZvTTBuUSMhIzs3JCQiMiMpb1B2PyY+KkckISM7JCIyYGlDPCk0VCVSIyEjOzckJCIyRWQ5SHBPLVIkISM7JCIxLnpuJXBWP1MjISM6NyQkIjFDWydIZyQ+eU0hIzokIjFObmlcLVMzQyEjOjckJCIxKFF4YVoqPXROISM6JCIyeCN5OiUpUSlcVCMhIzs3JCQiMXljODImSDhuJCEjOiQiMkZIOyl5c1xAQyEjOzckJCIwLzM7UVN0dyQhIzkkIjJYRmFoai53VSMhIzs3JCQiMU9zV1JlQmdRISM6JCIyd195dCVvRkxDISM7NyQkIjIleWM4Mi9RalIhIzskIjFrbDtJOktSQyEjOjckJCIyJj1QdSlRZ2cwJSEjOyQiMiV6QipHI3pgV0MhIzs3JCQiMSJHYzcwO106JSEjOiQiMXciXGgsJyopXEMhIzo3JCQiMiZ6Zj4qZSVvV1UhIzskIjJZaVpDJUhkYUMhIzs3JCQiMVcnR2QpZnJVViEjOiQiMm1hTFZzLSZmQyEjOzckJCIxLTA1ISplJlxWJSEjOiQiMi5iQVZndlJZIyEjOzckJCIxWiUqKXk7dDhgJSEjOiQiMllzbipbJSlbb0MhIzs3JCQiMCwtL29RY2klISM5JCIyJ3BOWFsiW0ZaIyEjOzckJCIxWydIZiRmS0NaISM6JCIyKCoqR2szWDB4QyEjOzckJCIxMThFI1x0JD5bISM6JCIyZEQnKT1VaDVbIyEjOzckJCIxbUpqWUxkO1whIzokIjJCPjsvX0JdWyMhIzs3JCQiMXljOFAkb0gsJiEjOiQiMiNvL3drUyMpKVsjISM7NyQkIjFiNUBBYGEsXiEjOiQiMSp5KDNoJzNBXCMhIzo3JCQiMXZdLFZYMS5fISM6JCIyMV0meiEqbydmXCMhIzs3JCQiMnZnQFZha1FIJiEjOyQiMWZsNW9RQSpcIyEjOjckJCIxXy4yJUd3MVImISM6JCIyJj1pSnBHZi1EISM7NyQkIjFbJjQ+WlBMWyYhIzokIjFvJUcxb0BkXSMhIzo3JCQiMTxMbTdlQSdlJiEjOiQiMWN3Olk1NDREISM6NyQkIjFWJ0dkYj5gbiYhIzokIjE7MFFjTSM+XiMhIzo3JCQiMURdK148V3dkISM6JCIxQCRRQ2xZXV4jISM6NyQkIjFiMzxhT2dvZSEjOiQiMWVdIm8hPSJ5XiMhIzo3JCQiMDE3Q0g5JXBmISM5JCIyOjEyNFpeMl8jISM7NyQkIjEwNkFDb1JjZyEjOiQiMT4jPkpVPktfIyEjOjckJCIxbkxudShmYTonISM6JCIwKT5fNmcmZl8jISM5NyQkIjFkOEYlcFw2RCchIzokIjFHczxHdV9HRCEjOjckJCIxKnpmPjV4bk0nISM6JCIyblk2SktINWAjISM7NyQkIjFVJG9Pcl8/VychIzokIjJOZERJP2RNYCMhIzs3JCQiMlgpcFJcRmVMbCEjOyQiMW0iKVxENXRORCEjOjckJCIwMDU/OUhEaichIzkkIjFBVk5PcDdRRCEjOjckJCIxb01wR0Ekb3MnISM6JCIxNGVTaEROU0QhIzo3JCQiMjE8TW95IjNFbyEjOyQiMUsncGBET0VhIyEjOjckJCIxQVcpb2BFZiJwISM6JCIyWWU0QmFgWWEjISM7NyQkIjFAVCNbIT1BOnEhIzokIjIwTC55dkhvYSMhIzs3JCQiMW5NcG8kSC42KCEjOiQiMUR1RjxPJylbRCEjOjckJCIxXy80UWE/MHMhIzokIjEtaDEiKVwlM2IjISM6NyQkIjEzOklnUUkvdCEjOiQiMjlOIT0xYydHYiMhIzs3JCQiMXNWKFs3eGJSKCEjOiQiMTBMN3pSb2FEISM6NyQkIjE+UXdLTTAqWyghIzokIjF3WUpVX11jRCEjOjckJCIxJGY9UFFpQWYoISM6JCIxPSJHXmRwJWVEISM6NyQkIjF1WyhcajRkbyghIzokIjI7US5SUjItYyMhIzs3JCQiMXddLGBwRiJ5KCEjOiQiMjsmZWdkZiU+YyMhIzs3JCQiMSc0PlFYbSV5eSEjOiQiMiQ9LFBCX25qRCEjOzckJCIxKm9Qdl4teSd6ISM6JCIyJVwpPlFMSl9jIyEjOzckJCIxOUZhbz0uaiEpISM6JCIyW2ZcUSZmJm9jIyEjOzckJCIxKW9QdktPdjopISM6JCIxOlVEW1dWb0QhIzo3JCQiMGU6SnNFJ2UjKSEjOSQiMldAJnkscDNxRCEjOzckJCIwJioqKXpoTXlNKSEjOSQiMXIzInA3OjpkIyEjOjckJCIxXChcKjQ/d10lKSEjOiQiMT5cZWQiSEpkIyEjOjckJCIxWSJIZS9ZT2EpISM6JCIxaGF2M2JidUQhIzo3JCQiMWQ4RlcqXGJqKSEjOiQiMkM1UUBaUmZkIyEjOzckJCIxJ1soXGZoUE0oKSEjOiQiMnlRLChIIylSeEQhIzs3JCQiMXpjOFpAZ0wpKSEjOiQiMTIjUTQ1TCl5RCEjOjckJCIxVylvUDUkKVEjKikhIzokIjEkeUQoXE02IWUjISM6NyQkIjFQc1dwdXY+ISohIzokIjIvYzQuaVo5ZSMhIzs3JCQiKltATDYqISIpJCIxW0JgP11zI2UjISM6NyQkIjE4RV9hZXU5IyohIzokIjIpUlhpYkkzJWUjISM7NyQkIjFRdVtQaF0tJCohIzokIjE8eWJiakImZSMhIzo3JCQiMXZdLDg/SS4lKiEjOiQiMiQ9MEdNbmAnZSMhIzs3JCQiMUNeLU5hMClcKiEjOiQiMld0Zjs9T3hlIyEjOzckJCIxZDpKVU8qPWYqISM6JCIyJW96WS5GISopZSMhIzs3JCQiMWtIZilcMWVvKiEjOiQiMi5KdyZlJVwrZiMhIzs3JCQiMU1wUW47ZiJ5KiEjOiQiMmouWGdKKT4iZiMhIzs3JCQiMSJIZTtNQUopKSohIzokIjJjIUdvOVFSI2YjISM7NyQkIjElcFF4LTtpKCoqISM6JCIyJHl3dmwuWiRmIyEjOzckJCIyI1wpcFw5Nm8rIiEjOiQiMlBFdWw5OlhmIyEjOzckJCIyTW9PVmhNbSwiISM6JCIwW1RDI0doJmYjISM5NyQkIjJuTXApKXBPay0iISM6JCIydztuZycpKW8nZiMhIzs3JCQiMmU5SD1sTV8uIiEjOiQiMlc5Vk5zUXdmIyEjOzckJCIxKnlkOlljYy8iISM5JCIxKltAcCdbdSlmIyEjOjckJCIyaUVgJ1twUGE1ISM6JCIycy04SydcbCpmIyEjOzckJCIyYDQ+eWB3WDEiISM6JCIyTGJvKiopPnErRSEjOzckJCIyKFJ6ZWQ1SnU1ISM6JCIxI3pkcDwlbyxFISM6NyQkIjIyOEVVI0crJDMiISM6JCIyeFA6XVFaRGcjISM7NyQkIjI4RmFbaXhGNCIhIzokIjEjWytgKy5OZyMhIzo3JCQiMC4xIz5zaC02ISM4JCIyMmQ0KFsiXFdnIyEjOzckJCIxPE1vWitUNzYhIzkkIjFeVHBIYVAwRSEjOjckJCIyakReS0QqW0A2ISM6JCIxRnczVDNBMUUhIzo3JCQiMktrR1pDISozOCIhIzokIjEkXHRMKEgzMkUhIzo3JCQiMTlHY2pGaFM2ISM5JCIyTUYxWXVnemcjISM7NyQkIjIpeWQ6LVRJXTYhIzokIjEmXHZRLEEpM0UhIzo3JCQiMnpkOl4kR0ZnNiEjOiQiMlZEdUcsJXA0RSEjOzckJCIyS21LMElgIXA2ISM6JCIxXlVeUjFYNUUhIzo3JCQiMk9zV1wtUSp5NiEjOiQiMm8rTi8hKipHNkUhIzs3JCQiMlojXClwTGopKT0iISM6JCIyV0YuO2M+QGgjISM7NyQkIjJrRF5VQEclKT4iISM6JCIxJlF1bSsySGgjISM6NyQkIjJOcVMiUlM2MjchIzokIjBiS3ItN09oIyEjOTckJCIxRV8vREJXPDchIzkkIjBONi09UVdoIyEjOTckJCIyI1wpcHp0Ij5FNyEjOiQiMWtERi16NzpFISM6NyQkIjJcJjQ+JlFwakIiISM6JCIxKGY2N3g9ZmgjISM6NyQkIjJ5ZTx2S3lgQyIhIzokIjFMUzhzKDNtaCMhIzo3JCQiMkFYITRsREViNyEjOiQiMSkzNnE9YnRoIyEjOjckJCIyPlJ5bXB1WUUiISM6JCIxanJUS2UwPUUhIzo3JCQiMlonSGZvX1x1NyEjOiQiMidSL2AlZXcoPUUhIzs3JCQiMmxJaCM+T14kRyIhIzokIjJZPyFRKFFIJT5FISM7NyQkIjIqcFJ6RzZDJEgiISM6JCIyVSNveicpUjc/RSEjOzckJCIyJGU7THhfTS44ISM6JCIyOykqNHdATjNpIyEjOzckJCIyTm9PJG80OTc4ISM6JCIyMkt5ZStZOWkjISM7NyQkIjInUnplYjBrQDghIzokIjIjUS10SHI0QUUhIzs3JCQiMihvUHZlWFhKOCEjOiQiLmYtbmdGaSMhIzc3JCQiMl4rLGlrYjVNIiEjOiQiMjdxPlAsLE1pIyEjOzckJCIyWSNcKT4+WC5OIiEjOiQiMUNPOWVDLENFISM6NyQkIjIpb1B2WydmMU8iISM6JCIyMiNlJ1I+I29DRSEjOzckJCIyR2Q5cGtGKnA4ISM6JCIyJj16UzlmRkRFISM7NyQkIjFIZTs4SyMpejghIzkkIjFtSXF4OiFmaSMhIzo3JCQiMSp6ZnAxIXopUSIhIzkkIjFGL2IlSGhraSMhIzo3JCQiMl4xOG0/JGYpUiIhIzokIjJuKT0lPV1scWkjISM7NyQkIjI4RF1xPjx5UyIhIzokIjIlUkhKJ3pFd2kjISM7NyQkIjJlOUhbIypldVQiISM6JCIyRF4lZnNoP0dFISM7NyQkIjI9UyEzd2Epb1UiISM6JCIyeCFwYy1id0dFISM7NyQkIjFtSmosVXZPOSEjOSQiMillbkh0T01IRSEjOzckJCIyOkxtcyYqZWlXIiEjOiQiMTsmSENdJCopSEUhIzo3JCQiMnVeLkYlKnlmWCIhIzokIjJrdSFHJXpbL2ojISM7NyQkIjIpb1B2VCU9Y1kiISM6JCIyMFEvKlFFKjRqIyEjOzckJCIyakloLTl3V1oiISM6JCIxbFlzcWtbSkUhIzo3JCQiMiQzPE1pIUdZWyIhIzokIjFMSS5IYy9LRSEjOjckJCIyPk9zQzEzUFwiISM6JCIyQidRTngnUkRqIyEjOzckJCIxT3NXTyMqUS46ISM5JCIwLUF1QmdJaiMhIzk3JCQiMmU6Sl9OYkVeIiEjOiQiMkNCbEhmX05qIyEjOzckJCIyRWAxJCo9V0hfIiEjOiQiMkNmMGxtIzRNRSEjOzckJCIyXjE4T2NgPWAiISM6JCIxKkhEISl6YVhqIyEjOjckJCIyTnFTSnlsPmEiISM6JCIyaT52OUB0XWojISM7NyQkIjJpR2RNKD49XjohIzokIjJELiUpejdTYmojISM7NyQkIjJwUyJHUElFaDohIzokIjF5c0MnKlsvT0UhIzo3JCQiMjtKaS9IaCpwOiEjOiQiMXlMbSxiWk9FISM6NyQkIjJ2YDJiZW4pejohIzokIjI7RE8vWGdwaiMhIzs3JCQiMm1MbnVkTyUqZSIhIzokIjF2UjdlTVVQRSEjOjckJCIxIj1PIz0kKioqKWYiISM5JCIyYXIkSEQ0KXlqIyEjOzckJCIyXy4yJXpvXzM7ISM6JCIyeHl1KSplSiRRRSEjOzckJCIyKCoqKXpIKSl6d2giISM6JCIwRCg+LylmKFFFISM5NyQkIjJqP1RBX3V2aSIhIzokIjJ0SWhZZTwjUkUhIzs3JCQiMnhhNDQkWytQOyEjOiQiMXY9VS4hXCdSRSEjOjckJCIxPU9zJ3lIcGsiISM5JCIwMUNaKno0U0UhIzk3JCQiMkxrRzxFOWZsIiEjOiQiMmQuLDAvKzBrIyEjOzckJCIyR2hBJil5VmVtIiEjOiQiMncmZngjZlI0ayMhIzs3JCQiMndhNFxhYWBuIiEjOiQiMSo+TVAoZk5URSEjOjckJCIybENcPTpVW28iISM6JCIxImZEdypvd1RFISM6NyQkIjI6TnFTKj52JXAiISM6JCIxW2I1Wjk+VUUhIzo3JCQiMVF3Xz8kelFxIiEjOSQiMmR3SGFLeURrIyEjOzckJCIyRmU7OCZwQTg8ISM6JCIxQVRwJVtxSGsjISM6NyQkIjAxN2sleWFCPCEjOCQiMTFVJD55KVJWRSEjOjckJCIyKClvUDpkIypHdCIhIzokIjJzN0YqKVEjeVZFISM7NyQkIjInMzxNLiRcQ3UiISM6JCIyJXknZllscVRrIyEjOzckJCIyMjZBTURvQHYiISM6JCIybWYjcCJRaFhrIyEjOzckJCIyKHBSemY9NWg8ISM6JCIxeisnKj1wIlxrIyEjOjckJCIyRFolKlt6QzF4IiEjOiQiMGJFSDojSFhFISM5NyQkIjAoUnpTXzIheSIhIzgkIjJjJTRxYTJtWEUhIzs3JCQiMiZlPE4hRyU9IXoiISM6JCIxQF5nVzQwWUUhIzo3JCQiMSc+UilwXTUqeiIhIzkkIjJkcElQIT1SWUUhIzs3JCQiMmU8TiE0eVI0PSEjOiQiMiZ6S1QzNnlZRSEjOzckJCIyYjZCRUAnbz09ISM6JCIyblAheUIpR3JrIyEjOzckJCIybkxuQ2d3eSM9ISM6JCIyaiVmJnBicHVrIyEjOzckJCIwJioqKVJBZngkPSEjOCQiMmxcXDpMS3lrIyEjOzckJCIyKW9QdkE9b1o9ISM6JCIxJFwsRyZHPltFISM6NyQkIjJgMzwlPSo0biY9ISM6JCIxRDxQI288JltFISM6NyQkIjJbI1wpXE4oSG09ISM6JCIxR3NKYyRmKVtFISM6NyQkIjEsLS9jUGx2PSEjOSQiMjEvKipcZSo9XEUhIzs3JCQiMWlDXCQ+J3omKT0hIzkkIjI3WyRmRFNhXEUhIzs3JCQiMlolKil5QEFkJSo9ISM6JCIxVTtIJHpaKVxFISM6NyQkIjImMzxNND1sLz4hIzokIjJtSzZgUSQ+XUUhIzs3JCQiMk5yVTo6RlQiPiEjOiQiMU0nUT00OjBsIyEjOjckJCIybk5yQSg0XkI+ISM6JCIxVmdmMzIkM2wjISM6NyQkIjJ0XCoqeUQtSCQ+ISM6JCIyVS0ua2tWNmwjISM7NyQkIjJWKil5WnghW1U+ISM6JCIyOikqR2UlKWY5bCMhIzs3JCQiMC4xQSVRal8+ISM4JCIyeCY9MHc8el5FISM7NyQkIjIuMjkzQFY+Jz4hIzokIjIucWIlUUs0X0UhIzs3JCQiMDA1SXZLNig+ISM4JCIyWCJSPl4iKVFfRSEjOzckJCIyVilvUEFpJjQpPiEjOiQiMjxVU2BeK0ZsIyEjOzckJCIyeGE0cEllMio+ISM6JCIxTHBLaCM0SWwjISM6NyQkIiQrIyEiIiQiMUFXOTB4SGBFISM6LSUmQ09MT1JHNiclJFJHQkckIilDKWVxJSEiKSQiIiEhIiIkIignPiFcJiEiKS0lK19BVFRSSUJVVEVHNiMvJSdzb3VyY2VHJSxtYXRoZGVmYXVsdEctJSVWSUVXRzYkOyQiIzUhIiIkIiQrIyEiIiUoREVGQVVMVEctJiUmX0FYSVNHNiMiIiI2Ji0lJkNPTE9SRzYmJSRSR0JHJCIiISEiIiQiIiEhIiIkIiIhISIiLSUqTElORVNUWUxFRzYjIiIhLSUqVEhJQ0tORVNTRzYjIiIhLSUtVFJBTlNQQVJFTkNZRzYjJCIiISEiIi0mJSZfQVhJU0c2IyIiIzYmLSUmQ09MT1JHNiYlJFJHQkckIiIhISIiJCIiISEiIiQiIiEhIiItJSpMSU5FU1RZTEVHNiMiIiEtJSpUSElDS05FU1NHNiMiIiEtJS1UUkFOU1BBUkVOQ1lHNiMkIiIhISIiLSUrQVhFU0xBQkVMU0c2JC1JI21pRzYjL0krbW9kdWxlbmFtZUc2IkksVHlwZXNldHRpbmdHSShfc3lzbGliRzYiNjVRIng2Ii8lJ2ZhbWlseUdRITYiLyUlc2l6ZUdRIzEwNiIvJSVib2xkR1EmZmFsc2U2Ii8lJ2l0YWxpY0dRJXRydWU2Ii8lKnVuZGVybGluZUdRJmZhbHNlNiIvJSpzdWJzY3JpcHRHUSZmYWxzZTYiLyUsc3VwZXJzY3JpcHRHUSZmYWxzZTYiLyUrZm9yZWdyb3VuZEdRKFswLDAsMF02Ii8lK2JhY2tncm91bmRHUS5bMjU1LDI1NSwyNTVdNiIvJSdvcGFxdWVHUSZmYWxzZTYiLyUrZXhlY3V0YWJsZUdRJmZhbHNlNiIvJSlyZWFkb25seUdRJmZhbHNlNiIvJSljb21wb3NlZEdRJmZhbHNlNiIvJSpjb252ZXJ0ZWRHUSZmYWxzZTYiLyUraW1zZWxlY3RlZEdRJmZhbHNlNiIvJSxwbGFjZWhvbGRlckdRJmZhbHNlNiIvJTZzZWxlY3Rpb24tcGxhY2Vob2xkZXJHUSZmYWxzZTYiLyUsbWF0aHZhcmlhbnRHUSdpdGFsaWM2IlEhNiItJSlfVklTSUJMRUc2IyIiIi0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiIiEhIiItJSlCT1VORFNfWUc2IyQiIiEhIiItJS1CT1VORFNfV0lEVEhHNiMkIiUrUyEiIi0lLkJPVU5EU19IRUlHSFRHNiMkIiUrUyEiIi0lKUNISUxEUkVORzYiLSUrQU5OT1RBVElPTkc2Jy0lKUJPVU5EU19YRzYjJCIiISEiIi0lKUJPVU5EU19ZRzYjJCIiISEiIi0lLUJPVU5EU19XSURUSEc2IyQiJStTISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJStTISIiLSUpQ0hJTERSRU5HNiI=NiI=
stir1m:=proc(n); local a,j,k; a:=Matrix(n+1); for k from 0 to n do for j from 0 to n do a[j+1,k+1]:=stirling1(j,k): od; od; RETURN(a); end proc;
LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSdzdGlyMW1HRihmKjYjSSJuR0YoNiVJImFHRihJImpHRihJImtHRihGKEYoQyU+OCQtSSdNYXRyaXhHRiU2IywmOSQiIiJGPUY9Pyg4JiIiIUY9RjxJJXRydWVHRiY/KDglRkBGPUY8RkE+JkY3NiQsJkZDRj1GPUY9LCZGP0Y9Rj1GPS1fSSljb21iaW5hdEdGJUkqc3RpcmxpbmcxR0YoNiRGQ0Y/LUknUkVUVVJOR0YmNiNGN0YoRihGKDcjRi4=
stir2m:=proc(n); local a,j,k; a:=Matrix(n+1); for k from 0 to n do for j from 0 to n do a[j+1,k+1]:=stirling2(j,k): od; od; RETURN(a); end proc;
LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyM+SSdzdGlyMm1HRihmKjYjSSJuR0YoNiVJImFHRihJImpHRihJImtHRihGKEYoQyU+OCQtSSdNYXRyaXhHRiU2IywmOSQiIiJGPUY9Pyg4JiIiIUY9RjxJJXRydWVHRiY/KDglRkBGPUY8RkE+JkY3NiQsJkZDRj1GPUY9LCZGP0Y9Rj1GPS1fSSljb21iaW5hdEdGJUkqc3RpcmxpbmcyR0YoNiRGQ0Y/LUknUkVUVVJOR0YmNiNGN0YoRihGKDcjRi4=
#stir1m(7);
stir2m(7);
LV9JLFR5cGVzZXR0aW5nRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiSSxtcHJpbnRzbGFzaEdGKDYkNyMtSSdSVEFCTEVHRig2JSI1JykpZS9PdVN1WSU9LUknTUFUUklYR0YoNiM3KjcqLUkjbW5HNiRGJi9JK21vZHVsZW5hbWVHRihGJDYjUSIxRigtRjY2I1EiMEYoRjxGPEY8RjxGPEY8NypGPEY1RjxGPEY8RjxGPEY8NypGPEY1RjVGPEY8RjxGPEY8NypGPEY1LUY2NiNRIjNGKEY1RjxGPEY8Rjw3KkY8RjUtRjY2I1EiN0YoLUY2NiNRIjZGKEY1RjxGPEY8NypGPEY1LUY2NiNRIzE1RigtRjY2I1EjMjVGKC1GNjYjUSMxMEYoRjVGPEY8NypGPEY1LUY2NiNRIzMxRigtRjY2I1EjOTBGKC1GNjYjUSM2NUYoRk1GNUY8NypGPEY1LUY2NiNRIzYzRigtRjY2I1EkMzAxRigtRjY2I1EkMzUwRigtRjY2I1EkMTQwRigtRjY2I1EjMjFGKEY1SSdNYXRyaXhHRiU3Iy1Gam82Iy9JJCVpZEdGKEYv
#MatrixInverse(stir2(7));
stirling1(4,1);
ISIn
expand(x+3*x*(x-1)+x*(x-1)*(x-2));
KiRJInhHNiIiIiQ=
expand(x+7*x*(x-1)+6*x*(x-1)*(x-2)+1*x*(x-1)*(x-2)*(x-3));
KiRJInhHNiIiIiU=
s
expand(x*(x-1)*(x-2)*(x-3)*(x-4));
LCwqJEkieEc2IiIiJiIiIiokRiQiIiUhIzUqJEYkIiIkIiNOKiRGJCIiIyEjXUYkIiND
expand(x*(x+1)*(x+2)*(x+3)*(x+4));
LCwqJEkieEc2IiIiJiIiIiokRiQiIiUiIzUqJEYkIiIkIiNOKiRGJCIiIyIjXUYkIiND