|
MATHEMATICA
|
nmax = 20; CoefficientList[Series[Product[1/(1 - Log[1/(1 - x)]^k/k!), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
nmax = 20; CoefficientList[Series[Exp[Sum[Sum[Log[1/(1 - x)]^(j k)/(k (j!)^k), {j, 1, nmax}], {k, 1, nmax}]], {x, 0, nmax}], x] Range[0, nmax]!
Table[Sum[Abs[StirlingS1[n, k]] Total[Apply[Multinomial, IntegerPartitions[k], {1}]], {k, 0, n}], {n, 0, 20}]
|