OFFSET
0,3
FORMULA
a(n) = n! * Sum_{k=0..floor(n/3)} (n - 3*k)^k/(6^k * k!).
a(n) ~ n! / ((1 + LambertW(1/2)) * (2*LambertW(1/2))^(n/3)). - Vaclav Kotesovec, Nov 13 2022
MAPLE
g := 1/(1-x*exp(x^3/6)) ;
taylor(%, x=0, 70) ;
L := gfun[seriestolist](%) ;
seq( op(i, L)*(i-1)!, i=1..nops(L)) ; # R. J. Mathar, Mar 13 2023
PROG
(PARI) my(N=30, x='x+O('x^N)); Vec(serlaplace(1/(1-x*exp(x^3/6))))
(PARI) a(n) = n!*sum(k=0, n\3, (n-3*k)^k/(6^k*k!));
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Seiichi Manyama, Nov 06 2022
STATUS
approved