OFFSET
0,3
EXAMPLE
G.f.: A(x) = 1 + x + 3*x^2 + 7*x^3 + 19*x^4 + 54*x^5 + 161*x^6 + 492*x^7 + 1532*x^8 + 4843*x^9 + 15503*x^10 + 50159*x^11 + 163782*x^12 + ...
where
1 = (1 + x) - x*A(x)*(1 - x^2)^2 + x^2*A(x)^2*(1 + x^3)^3 - x^3*A(x)^3*(1 - x^4)^4 + x^4*A(x)^4*(1 + x^5)^5 - x^5*A(x)^5*(1 - x^6)^6 + ...
PROG
(PARI) {a(n) = my(A = [1]); for(i=1, n, A=concat(A, 0);
A[#A] = polcoeff( sum(m=0, #A, (-x)^m * Ser(A)^m * (1 - (-x)^(m+1))^(m+1) ), #A) ); H=A; A[n+1]}
for(n=0, 60, print1(a(n), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Feb 15 2022
STATUS
approved