OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..351
FORMULA
a(n) ~ 2^(n-2) * n^(n-1).
MAPLE
de:= diff(y(x), x) = x*y(x)^3/(1-2*x*y(x)):
S:= rhs(dsolve({de, y(0)=2}, y(x), series, order=40)):
-1, seq(coeff(S, x, i)*(i+1)!, i=0..39); # Robert Israel, Apr 13 2020
MATHEMATICA
CoefficientList[Series[-1/(1-LambertW[-2*x]), {x, 0, 20}], x] * Range[0, 20]!
PROG
(PARI) my(x='x+O('x^20)); Vec(serlaplace(-1/(1-lambertw(-2*x)))) \\ Michel Marcus, Apr 13 2020
CROSSREFS
KEYWORD
sign
AUTHOR
Vaclav Kotesovec, Jun 02 2019
STATUS
approved