A092834 Coefficients of a solution to a functional equation.

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).

Links

Table of n, a(n) for n=0..39.

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

Adjacent sequences: A092831 A092832 A092833 * A092835 A092836 A092837

Keyword

nonn

Author

Michael Somos, Mar 06 2004

Status

approved