OFFSET
0,4
FORMULA
E.g.f.: Series_Reversion( (1 - x) * (exp(x) - 1) ).
a(n) = Sum_{k=1..n} (n+k-2)!/(n-1)! * Stirling1(n,k).
a(n) ~ LambertW(1)^n * n^(n-1) / (sqrt(1 + LambertW(1)) * exp(n) * (1 - LambertW(1))^(2*n-1)). - Vaclav Kotesovec, Mar 19 2024
MATHEMATICA
Table[Sum[(n+k-2)! / (n-1)! * StirlingS1[n, k], {k, 1, n}], {n, 0, 20}] (* Vaclav Kotesovec, Mar 19 2024 *)
PROG
(PARI) my(N=20, x='x+O('x^N)); concat(0, Vec(serlaplace(serreverse((1-x)*(exp(x)-1)))))
(PARI) a(n) = sum(k=1, n, (n+k-2)!/(n-1)!*stirling(n, k, 1));
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Mar 19 2024
STATUS
approved