OFFSET
0,2
FORMULA
EXAMPLE
G.f.: A(x) = 1 + 2*x + 6*x^2 + 19*x^3 + 67*x^4 + 243*x^5 + 895*x^6 +...
B(x)/A(x) = 1 - x - 3*x^2 - 6*x^3 - 10*x^4 - 36*x^5 - 141*x^6 -...
B(x)/A(x) = 1 - x*B(x)^3, where
B(x)^3 = 1 + 3*x + 6*x^2 + 10*x^3 + 36*x^4 + 141*x^5 + 436*x^6 +...
and B(x) is g.f. of A121652 where all coefficients are cubes:
B(x) = 1 + x + x^2 + x^3 + 8*x^4 + 27*x^5 + 64*x^6 + 216*x^7 +...
PROG
(PARI) {a(n)=local(B=1+x); if(n==0, 1, for(m=0, n, B=1/(1-x*sum(k=0, m, polcoeff(B, k)^3*x^(3*k))+O(x^(3*n+3)))); polcoeff(B, 3*n+1))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Aug 14 2006
STATUS
approved