View source for Stirling numbers of the first kind

=={{header|Mathematica}} / {{header|Wolfram Language}}==
<syntaxhighlight lang="mathematica">TableForm[Array[StirlingS1, {n = 12, k = 12} + 1, {0, 0}], TableHeadings -> {"n=" <> ToString[#] & /@ Range[0, n], "k=" <> ToString[#] & /@ Range[0, k]}]
Max[Abs[StirlingS1[100, #]] & /@ Range[0, 100]]</syntaxhighlight>
{{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	2	-3	1	0	0	0	0	0	0	0	0	0
n=4	0	-6	11	-6	1	0	0	0	0	0	0	0	0
n=5	0	24	-50	35	-10	1	0	0	0	0	0	0	0
n=6	0	-120	274	-225	85	-15	1	0	0	0	0	0	0
n=7	0	720	-1764	1624	-735	175	-21	1	0	0	0	0	0
n=8	0	-5040	13068	-13132	6769	-1960	322	-28	1	0	0	0	0
n=9	0	40320	-109584	118124	-67284	22449	-4536	546	-36	1	0	0	0
n=10	0	-362880	1026576	-1172700	723680	-269325	63273	-9450	870	-45	1	0	0
n=11	0	3628800	-10628640	12753576	-8409500	3416930	-902055	157773	-18150	1320	-55	1	0
n=12	0	-39916800	120543840	-150917976	105258076	-45995730	13339535	-2637558	357423	-32670	1925	-66	1
19710908747055261109287881673376044669240511161402863823515728791076863288440277983854056472903481625299174865860036734731122707870406148096000000000000000000</pre>