A307125 Expansion of e.g.f. log(1 - log(1 - x*exp(x))).

0, 1, 2, 4, 17, 123, 1052, 10568, 125750, 1726189, 26730394, 460982300, 8766443952, 182229703043, 4110207945794, 99970680376908, 2608221938476016, 72656914458625593, 2152355976206481570, 67562405794276542004, 2240111797037473955984, 78229640115171735522015, 2870092624821982184377202

Offset: 0

Author

Ilya Gutkovskiy, Mar 26 2019

Keywords

• nonn

Crossrefs

Cf. A007550, A009444, A089064, A307126.

Programs

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]!

PARI

my(x = 'x + O('x^30)); concat(0, Vec(serlaplace(log(1 - log(1 - x*exp(x)))))) \\ Michel Marcus, Mar 26 2019