OFFSET
0,3
COMMENTS
Let S(n,x) be the e.g.f. of row n of square table A145085, then the e.g.f.s satisfy: S(n,x) = exp( Integral S(n+1,x)^(n+1) dx ) for n>=0.
LINKS
Paul D. Hanna, Table of n, a(n) for n=0..60
FORMULA
PROG
(PARI) {a(n)=local(A=vector(n+2, j, 1+j*x)); for(i=0, n+1, for(j=0, n, m=n+1-j; A[m]=exp(m*intformal(A[m+1]+x*O(x^n))))); n!*polcoeff(exp(intformal(A[1])), n, x)}
(PARI) {a(n)=local(A=vector(n+2, j, 1+j*x)); for(i=0, n+1, for(j=0, n, m=n+1-j; A[m]=exp(intformal(A[m+1]^(m+1)+x*O(x^n))))); n!*polcoeff(exp(intformal(A[1])), n, x)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Oct 01 2008
STATUS
approved