OFFSET
0,3
FORMULA
G.f. A(x) satisfies:
(1) A(x) = 1 + x*d/dx[x*A(x)^4],
(2) [x^n] exp( x*A(x)^4 ) * (n + 1 - A(x)) = 0 for n > 0,
(3) [x^n] exp( n * x*A(x)^4 ) * (2 - A(x)) = 0 for n > 0. - Paul D. Hanna, May 27 2018
PROG
(PARI) {a(n)=local(A=1+x*O(x^n)); for(i=1, n, A=1+x*deriv(x*A^4)); polcoeff(A, n, x)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Nov 04 2005
STATUS
approved