|
Search: id:A036675
|
|
|
| A036675 |
|
G.f. satisfies A(x) = 1 + x*A(x)^2*A(x^2). |
|
+0
1
|
|
| 1, 1, 2, 6, 18, 59, 198, 690, 2450, 8878, 32632, 121518, 457262, 1736526, 6646340, 25613086, 99298674, 387021728, 1515594560, 5960406102, 23530528512, 93216984177, 370450977206, 1476458287082, 5900150928510, 23635544130948
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
MAPLE
|
A := 1; f := proc(n) global A; coeff(series( 1+x*(A*subs(x=x^2, A)), x, n+1), x, n); end; for n from 1 to 50 do A := series(A+f(n)*x^n, x, n +1); od: A;
|
|
PROGRAM
|
(PARI) a(n)=local(A, m); if(n<0, 0, m=2; A=1+O(x); while(m<=n+1, m*=2; A=2/(1+sqrt(1-4*x*subst(A, x, x^2)))); polcoeff(A, n))
|
|
CROSSREFS
|
Sequence in context: A085139 A150041 A150042 this_sequence A121320 A148460 A148461
Adjacent sequences: A036672 A036673 A036674 this_sequence A036676 A036677 A036678
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com).
|
|
|
Search completed in 0.002 seconds
|
