|
|
A305276
|
|
Expansion of e.g.f. 1/(1 + LambertW(-x/(1 - x))).
|
|
3
|
|
|
1, 1, 6, 57, 748, 12565, 257526, 6232765, 173980920, 5502613833, 194477548330, 7596028355641, 324920533473108, 15106155118606045, 758463525318426942, 40901033617318501845, 2357682497456804486896, 144670077586483815863569, 9414952083720893890165842, 647715776085173413399687633
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=0..n} binomial(n-1,k-1)*k^k*n!/k!.
a(n) ~ n^n * (1 + exp(1))^(n - 1/2) / exp(n - 1/2). - Vaclav Kotesovec, Aug 18 2018
|
|
MAPLE
|
S:= series(1/(1+LambertW(-x/(1-x))), x, 51):
|
|
MATHEMATICA
|
nmax = 19; CoefficientList[Series[1/(1 + LambertW[-x/(1 - x)]), {x, 0, nmax}], x] Range[0, nmax]!
Join[{1}, Table[Sum[Binomial[n - 1, k - 1] k^k n!/k!, {k, n}], {n, 19}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|