OFFSET
0,2
LINKS
Eric Weisstein's World of Mathematics, Lambert W-Function.
FORMULA
E.g.f.: (1+x) * exp( -LambertW(-2*x*(1+x)^3)/2 ).
a(n) = n! * Sum_{k=0..n} (2*k+1)^(k-1) * binomial(3*k+1,n-k)/k!.
PROG
(PARI) a(n) = n!*sum(k=0, n, (2*k+1)^(k-1)*binomial(3*k+1, n-k)/k!);
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Nov 15 2024
STATUS
approved