login
A092834
Coefficients of a solution to a functional equation.
0
0, 1, 1, 1, 2, 3, 5, 8, 13, 20, 33, 53, 86, 137, 222, 356, 575, 923, 1488, 2392, 3852, 6194, 9971, 16040, 25813, 41527, 66821, 107510, 172982, 278318, 447800, 720495, 1159230, 1865158, 3000919, 4828366, 7768540, 12499255, 20110570, 32357010
OFFSET
0,5
COMMENTS
G.f. A(x) satisfies 0=f(A(x),A(x^2)) where f(u,v)=u^2-v-2uv(1+v+uv).
PROG
(PARI) a(n)=local(A, m); if(n<0, 0, A=x+O(x^2); m=1; while(m<=n, m*=2; A=subst(A, x, x^2); A=(A+A^2+sqrt(A+A^2+A^4))/(1-2*A^2)); polcoeff(A, n))
CROSSREFS
Sequence in context: A322332 A225394 A013985 * A080106 A293644 A158415
KEYWORD
nonn
AUTHOR
Michael Somos, Mar 06 2004
STATUS
approved