A309175 E.g.f. A(x) satisfies: A(x) = (1 + x) * Product_{k>=2} A(x^k)^(1/k).

1, 1, 1, 5, 17, 89, 769, 5389, 36385, 448433, 5058881, 51656021, 792623281, 10548735625, 141646268737, 2746494730589, 42803661694529, 688682904155489, 16532731961057665, 317686449365041573, 6296248862732350801, 159762846613265335481, 3488151227855502313601

Offset

0,4

Links

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

Formula

E.g.f.: Product_{k>=1} (1 + x^k)^(A074206(k)/k).

Mathematica

terms = 22; A[_] = 1; Do[A[x_] = (1 + x) Product[A[x^k]^(1/k), {k, 2, terms}] + O[x]^(terms + 1) // Normal, terms + 1]; CoefficientList[A[x], x] Range[0, terms]!

Crossrefs

Cf. A074206, A129373, A307605, A309174.

Sequence in context: A145041 A212291 A307176 * A179684 A250744 A197875

Adjacent sequences: A309172 A309173 A309174 * A309176 A309177 A309178

Keyword

nonn

Author

Ilya Gutkovskiy, Jul 15 2019

Status

approved