OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..229
FORMULA
E.g.f.: Sum((exp((n-1)*x)-1)^n, n=0..infinity).
a(n) ~ c * d^n * (n!)^2 / sqrt(n), where d = A317855 = (1+exp(1/r))*r^2 = 3.161088653865428813830172202588132491726382774188556341627278..., r = 0.8737024332396683304965683047207192982139922672025395099... is the root of the equation exp(1/r)/r + (1+exp(1/r))*LambertW(-exp(-1/r)/r) = 0, and c = 0.10430562057820038909699083625848223918044424242153125547162600916636313858475... . - Vaclav Kotesovec, May 07 2014
MAPLE
A122418 := proc(n) sum((k-1)^n*k!*combinat[stirling2](n, k), k=0..n) ; end; for n from 0 to 16 do print(A122418(n)) ; od ; # R. J. Mathar, Feb 10 2007
MATHEMATICA
a[n_] := Sum[ (k-1)^n*k!*StirlingS2[n, k], {k, 0, n}]; Table[a[n], {n, 0, 16}] (* Jean-François Alcover, Mar 26 2013 *)
PROG
(PARI) for(n=0, 50, print1(sum(k=0, n, (k-1)^n*k!*stirling(n, k, 2)), ", ")) \\ G. C. Greubel, Nov 15 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Sep 03 2006
EXTENSIONS
More terms from R. J. Mathar, Feb 10 2007
STATUS
approved