OFFSET
0,2
COMMENTS
In table A124540, the g.f. of row n, R_n(y), simultaneously satisfies: R_n(y) = [ Sum_{k>=0} y^k*R_k(y)^n ]^n for n>=0.
FORMULA
G.f.: A(x) = [ Sum_{n>=0} x^n*R_n(x)^3 ]^3, where R_n(x) is the g.f. of row n in table A124540.
PROG
(PARI) {a(n)=local(R); R=vector(n+4, r, vector(n+4, c, 1)); for(i=0, n+3, for(r=0, n+3, R[r+1]=Vec(sum(c=0, n, x^c*Ser(R[c+1])^(r*c)+O(x^(n+1)))))); Vec(Ser(R[4])^3+O(x^(n+1)))[n+1]}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Nov 05 2006
STATUS
approved