OFFSET
0,2
LINKS
Eric Weisstein's World of Mathematics, Lambert W-Function.
FORMULA
E.g.f.: (LambertW( -3*x/(1-x)^3 ) / (-3*x))^(1/3).
a(n) ~ 3^(-5/6) * (2^(4/3) + 2*(3 + sqrt(4*exp(1) + 9))^(1/3) * exp(-2/3) - 2^(2/3) * (3 + sqrt(4*exp(1) + 9))^(2/3) * exp(-1/3))^(1/6) * 2^(1/3) * (3 + sqrt(4*exp(1) + 9))^(4/9) * sqrt(4 - 2^(4/3) * (3 + sqrt(4*exp(1) + 9))^(2/3) * exp(-1/3) + 3*2^(2/3) * exp(-2/3) * (3 + sqrt(4*exp(1) + 9))^(1/3)) * n^(n-1) * (12 + 4*sqrt(4*exp(1) + 9))^(n/3) / (exp(7/18 + 5*n/3) * (2 - 2^(1/3) * (3 + sqrt(4*exp(1) + 9))^(2/3) * exp(-1/3) + exp(-2/3) * (12 + 4*sqrt(4*exp(1) + 9))^(1/3))^n * ((3 + sqrt(4*exp(1) + 9))^(2/3) * exp(-1/3) - 2^(2/3))^(3/2) * sqrt(2^(1/3) * (3 + sqrt(4*exp(1) + 9))^(2/3) * exp(-1/3) - 2)). - Vaclav Kotesovec, Mar 06 2023
a(n) = n! * Sum_{k=0..n} (3*k+1)^(k-1) * binomial(n+2*k,n-k)/k!. - Seiichi Manyama, Mar 09 2024
PROG
(PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace((lambertw(-3*x/(1-x)^3)/(-3*x))^(1/3)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Mar 05 2023
STATUS
approved