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,4

Links

Table of n, a(n) for n=0..24.

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

Cf. A003713, A007550, A009306, A307125.

Sequence in context: A109734 A239309 A077073 * A191474 A199602 A324057

Adjacent sequences: A307123 A307124 A307125 * A307127 A307128 A307129

Keyword

sign

Author

Ilya Gutkovskiy, Mar 26 2019

Status

approved