|
|
A367789
|
|
E.g.f. satisfies A(x) = exp( x/(1-x)^3 * A(x) ).
|
|
2
|
|
|
1, 1, 9, 106, 1697, 35076, 893947, 27165706, 960298593, 38751082552, 1758831242291, 88726543365054, 4926355857050641, 298605321687360676, 19623211558172733435, 1389870724939251455506, 105556814502357807727553, 8557797733469700008170224
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: exp( -LambertW(-x/(1-x)^3) ).
a(n) = n! * Sum_{k=0..n} (k+1)^(k-1) * binomial(n+2*k-1,n-k)/k!.
|
|
MAPLE
|
n!*add((k+1)^(k-1) * binomial(n+2*k-1, n-k)/k!, k=0..n) ;
end proc:
|
|
PROG
|
(PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace(exp(-lambertw(-x/(1-x)^3))))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|