OFFSET
0,2
EXAMPLE
G.f.: A(x) = 1 + 8*x + 8*x^2 - 16*x^3 + 48*x^4 - 160*x^5 + 528*x^6 +...
A(x)^(1/2) = 1 + 4*x - 4*x^2 + 8*x^3 - 16*x^4 + 16*x^5 + 104*x^6 +...
(1+A(x))/2 = 1 + 4*x + 4*x^2 - 8*x^3 + 24*x^4 - 80*x^5 + 264*x^6 +...
PROG
(PARI) {a(n)=local(A=1+8*x+sum(m=2, n-1, a(m)*x^m)+x^2*O(x^n)); if(n<2, polcoeff(A, n), -2*polcoeff(agm(1, A), n))}
CROSSREFS
KEYWORD
sign
AUTHOR
Paul D. Hanna, Dec 11 2009
STATUS
approved