OFFSET
0,2
EXAMPLE
G.f.: A(x) = 1 + 2*x + 8*x^2 + 44*x^3 + 304*x^4 + 2572*x^5 +...;
A_1(x) = 1 + 2*x + 10*x^2 + 72*x^3 + 670*x^4 + 7824*x^5 +...;
A_2(x) = 1 + 2*x + 14*x^2 + 144*x^3 + 1934*x^4 + 32896*x^5 +...;
A_3(x) = 1 + 2*x + 22*x^2 + 352*x^3 + 7262*x^4 + 188352*x^5 +...;
A_4(x) = 1 + 2*x + 38*x^2 + 1024*x^3 + 34494*x^4 + 1425856*x^5 +...;
A_5(x) = 1 + 2*x + 70*x^2 + 3392*x^3 + 198270*x^4 + 13714368*x^5 +...; ...
where
A(x) = 1/(1 - 2*x*[A_1(x)]^(1/2));
A_1(x) = 1/(1 - 4*x*[A_2(x)]^(1/4));
A_2(x) = 1/(1 - 8*x*[A_3(x)]^(1/8));
A_3(x) = 1/(1 - 16*x*[A_4(x)]^(1/16));
A_4(x) = 1/(1 - 32*x*[A_5(x)]^(1/32)); ...
PROG
(PARI) {a(n)=local(A=1+2^(n+1)*x+x*O(x^n)); for(i=0, n-1, A=1/(1-2^(n-i)*x*A^(1/2^(n-i))+x*O(x^n))); polcoeff(A, n)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Feb 25 2008
STATUS
approved