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

Links

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

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

Prog

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

Crossrefs

Cf. A007550, A009444, A089064, A307126.

Sequence in context: A009319 A347724 A009323 * A247260 A048872 A063800

Adjacent sequences: A307122 A307123 A307124 * A307126 A307127 A307128

Keyword

nonn

Author

Ilya Gutkovskiy, Mar 26 2019

Status

approved