|
Search: id:A092834
|
|
|
| A092834 |
|
Coefficients of a solution to a functional equation. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
G.f. A(x) satisfies 0=f(A(x),A(x^2)) where f(u,v)=u^2-v-2uv(1+v+uv).
|
|
PROGRAM
|
(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: A055805 A023437 A013985 this_sequence A080106 A158415 A005347
Adjacent sequences: A092831 A092832 A092833 this_sequence A092835 A092836 A092837
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Mar 06 2004
|
|
|
Search completed in 0.002 seconds
|
