OFFSET
0,2
FORMULA
a(n) ~ n! / LambertW(1)^(n+1).
a(n) = (-1)^n * A009444(n+1).
a(n) = Sum_{k=0..n+1} (n+1)!*(n-k+1)^(k-1)/k! for n > 0. - Detlef Meya, Sep 05 2023
MATHEMATICA
nmax = 20; CoefficientList[Series[(1+x)/(E^(-x)-x), {x, 0, nmax}], x] * Range[0, nmax]!
a={1}; For[n=1, n<20, n++, AppendTo[a, Sum[(n!)*((n-k+1)^(k-1))*(n+1)/(k!), {k, 0, n+1}]]]; a (* Detlef Meya, Sep 05 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Jun 16 2018
STATUS
approved