OFFSET
0,4
MAPLE
a:=series(log(1+log(1+x*exp(x))), x=0, 25): seq(n!*coeff(a, x, n), n=0..24); # Paolo P. Lava, Apr 03 2019
MATHEMATICA
nmax = 24; CoefficientList[Series[Log[1 + Log[1 + x Exp[x]]], {x, 0, nmax}], x] Range[0, nmax]!
PROG
(PARI) my(x = 'x + O('x^30)); Vec(serlaplace(log(1 + log(1 + x*exp(x))))) \\ Michel Marcus, Mar 26 2019
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Mar 26 2019
STATUS
approved