A308370 G.f. A(x) satisfies: A(x) = x * Product_{k>=1} (1 + A(x^k))^k.

1, 1, 3, 8, 20, 47, 118, 280, 681, 1640, 3963, 9523, 23004, 55377, 133477, 321597, 775054, 1867304, 4499934, 10842847, 26127768, 62958232, 151708512, 365562567, 880881465, 2122617010, 5114772619, 12324827128, 29698572295, 71563264162, 172442689864, 415527172616

Offset

1,3

Links

Table of n, a(n) for n=1..32.

Formula

G.f. A(x) satisfies: A(x) = x * exp(-Sum_{k>=1} Sum_{d|k} d^2 * (-A(x^d))^(k/d) / k).

Mathematica

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

Crossrefs

Cf. A050383, A091865, A308369, A308371, A308372.

Sequence in context: A136305 A284943 A026712 * A050232 A050233 A143662

Adjacent sequences: A308367 A308368 A308369 * A308371 A308372 A308373

Keyword

nonn

Author

Ilya Gutkovskiy, May 22 2019

Status

approved