A326884 E.g.f.: Product_{k>=1} (1 + k*(exp(x)-1)^k).
1, 1, 5, 43, 377, 4291, 58745, 914803, 15641897, 298104451, 6337624985, 147137420563, 3674045105417, 98093008751011, 2793940490888825, 84812168406518323, 2737609202984488937, 93486719521251467971, 3358396276982001106265, 126434158646122122080083
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..410
Programs
-
Mathematica
nmax = 20; CoefficientList[Series[Product[(1+k*(Exp[x]-1)^k), {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]!
Formula
a(n) = Sum_{k=0..n} A022629(k)*Stirling2(n,k)*k!.