A307126 Expansion of e.g.f. log(1 + log(1 + x*exp(x))).
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
Keywords
Programs
-
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]! -
PARI
my(x = 'x + O('x^30)); Vec(serlaplace(log(1 + log(1 + x*exp(x))))) \\ Michel Marcus, Mar 26 2019