A307567 Expansion of e.g.f. Product_{j>=1} 1/(1 - (-1 + Product_{k>=1} 1/(1 - x^k/k!))^j/j!).

1, 1, 6, 47, 475, 5857, 85582, 1442814, 27569010, 588533169, 13880832378, 358407441163, 10054835359411, 304540419456509, 9904454527313548, 344267509478109266, 12736907296570957669, 499767123093151036603, 20730741476220960428814, 906482220845570488188348, 41675291255765161672107867

Offset

0,3

Links

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

Formula

E.g.f.: g(g(x) - 1), where g(x) = e.g.f. of A005651.

Mathematica

nmax = 20; CoefficientList[Series[Product[1/(1 - (-1 + Product[1/(1 - x^k/k!), {k, 1, nmax}])^j/j!), {j, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!

Crossrefs

Cf. A005651, A307568.

Sequence in context: A365186 A104256 A289211 * A368270 A332238 A353548

Adjacent sequences: A307564 A307565 A307566 * A307568 A307569 A307570

Keyword

nonn

Author

Ilya Gutkovskiy, Apr 15 2019

Status

approved