OFFSET
0,2
FORMULA
G.f.: A(x) = x/(1 - 2*A(A(x)) + A(A(x))*A(A(A(x))) ).
G.f.: A(x) = Series_Reversion[x*(1 - 2*A(x) + A(x)*A(A(x)) )].
EXAMPLE
G.f.: A(x) = x + 2*x^2 + 11*x^3 + 86*x^4 + 818*x^5 + 8870*x^6 +...
A(A(x)) = x + 4*x^2 + 30*x^3 + 290*x^4 + 3251*x^5 + 40348*x^6 +...
A(A(A(x))) = x + 6*x^2 + 57*x^3 + 660*x^4 + 8603*x^5 + 121792*x^6 +...
A(x)^2 = x^2 + 4*x^3 + 26*x^4 + 216*x^5 + 2101*x^6 + 22904*x^7 +...
A(x)*A(A(x))^2 = x^3 + 10*x^4 + 103*x^5 + 1146*x^6 + 13704*x^7 +...
A(x)*A(A(x)) = x^2 + 6*x^3 + 49*x^4 + 480*x^5 + 5323*x^6 + 64762*x^7 +...
A(A(x))*A(A(A(x))) = x^2 + 10*x^3 + 111*x^4 + 1358*x^5 + 17944*x^6 +...
x/A(x) = 1 - 2*x - 7*x^2 - 50*x^3 - 469*x^4 - 5144*x^5 - 62752*x^6 -...
Series_Reversion(A(x)) = x - 2*x^2 - 3*x^3 - 16*x^4 - 123*x^5 - 1156*x^6 -...
PROG
(PARI) {a(n)=local(A=x+x*O(x)); for(i=1, n, A=serreverse(x*(1-2*A+A*subst(A, x, A)))); polcoeff(A, n)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jan 04 2009
STATUS
approved