Stirling numbers of the second kind: Difference between revisions
no edit summary
m (→{{header|Phix}}: added syntax colouring the hard way) |
No edit summary |
||
Line 899:
7769730053598745155212806612787584787397878128370115840974992570102386086289805848025074822404843545178960761551674
(115 digits, k = 28)</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>TableForm[Array[StirlingS2, {n = 12, k = 12} + 1, {0, 0}], TableHeadings -> {"n=" <> ToString[#] & /@ Range[0, n], "k=" <> ToString[#] & /@ Range[0, k]}]
Max[Abs[StirlingS2[100, #]] & /@ Range[0, 100]]</lang>
{{out}}
<pre> k=0 k=1 k=2 k=3 k=4 k=5 k=6 k=7 k=8 k=9 k=10 k=11 k=12
n=0 1 0 0 0 0 0 0 0 0 0 0 0 0
n=1 0 1 0 0 0 0 0 0 0 0 0 0 0
n=2 0 1 1 0 0 0 0 0 0 0 0 0 0
n=3 0 1 3 1 0 0 0 0 0 0 0 0 0
n=4 0 1 7 6 1 0 0 0 0 0 0 0 0
n=5 0 1 15 25 10 1 0 0 0 0 0 0 0
n=6 0 1 31 90 65 15 1 0 0 0 0 0 0
n=7 0 1 63 301 350 140 21 1 0 0 0 0 0
n=8 0 1 127 966 1701 1050 266 28 1 0 0 0 0
n=9 0 1 255 3025 7770 6951 2646 462 36 1 0 0 0
n=10 0 1 511 9330 34105 42525 22827 5880 750 45 1 0 0
n=11 0 1 1023 28501 145750 246730 179487 63987 11880 1155 55 1 0
n=12 0 1 2047 86526 611501 1379400 1323652 627396 159027 22275 1705 66 1
7769730053598745155212806612787584787397878128370115840974992570102386086289805848025074822404843545178960761551674</pre>
=={{header|Nim}}==
| |||