|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|