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