login
A307126
Expansion of e.g.f. log(1 + log(1 + x*exp(x))).
1
0, 1, 0, -2, 5, 3, -88, 362, 534, -17363, 103354, 175690, -9218328, 80446715, 46936658, -10553663682, 136009808336, -210505566343, -22766371152222, 418488315816586, -1679396876267976, -82907733267235305, 2070045795782097506, -13611715282931011890, -463120892871268874832
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