A329802 G.f. A(x) satisfies: A(x) = 1 / (1 - x * Product_{k>=1} A(x^k)).

1, 1, 2, 6, 19, 64, 219, 777, 2803, 10315, 38496, 145516, 555764, 2142060, 8320207, 32538518, 128012533, 506300507, 2011932479, 8028941336, 32163411045, 129291553211, 521372223648, 2108522273338, 8549844313915, 34753397386201, 141584261960345

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Cf. A050383, A091865.

Sequence in context: A148468 A148469 A191639 * A151283 A176950 A371818

Adjacent sequences: A329799 A329800 A329801 * A329803 A329804 A329805

Keyword

nonn

Author

Ilya Gutkovskiy, Nov 21 2019

Status

approved