[go: up one dir, main page]

login
A329802
G.f. A(x) satisfies: A(x) = 1 / (1 - x * Product_{k>=1} A(x^k)).
0
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
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
Sequence in context: A148468 A148469 A191639 * A151283 A176950 A371818
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Nov 21 2019
STATUS
approved