|
|
A362682
|
|
Expansion of e.g.f. exp(-LambertW(-x))/(1+x).
|
|
0
|
|
|
1, 0, 3, 7, 97, 811, 11941, 178557, 3354513, 69809383, 1659853861, 43658971753, 1268252733001, 40206626846283, 1383302292511413, 51308059650256741, 2041494097105707937, 86734131445797216847, 3919172491760452282693, 187679722656551406628833
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: -LambertW(-x)/(x * (1+x)).
a(n) = (-1)^n * n! * Sum_{k=0..n} (-(k+1))^k/(k+1)!.
a(0) = 1; a(n) = -n*a(n-1) + (n+1)^(n-1).
|
|
PROG
|
(PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace(exp(-lambertw(-x))/(1+x)))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|