A307126 - OEIS

%I #9 Apr 03 2019 09:03:46

%S 0,1,0,-2,5,3,-88,362,534,-17363,103354,175690,-9218328,80446715,

%T 46936658,-10553663682,136009808336,-210505566343,-22766371152222,

%U 418488315816586,-1679396876267976,-82907733267235305,2070045795782097506,-13611715282931011890,-463120892871268874832

%N Expansion of e.g.f. log(1 + log(1 + x*exp(x))).

%p 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

%t nmax = 24; CoefficientList[Series[Log[1 + Log[1 + x Exp[x]]], {x, 0, nmax}], x] Range[0, nmax]!

%o (PARI) my(x = 'x + O('x^30)); Vec(serlaplace(log(1 + log(1 + x*exp(x))))) \\ _Michel Marcus_, Mar 26 2019

%Y Cf. A003713, A007550, A009306, A307125.

%K sign

%O 0,4

%A _Ilya Gutkovskiy_, Mar 26 2019