|
Search: id:A123629
|
|
|
| A123629 |
|
Expansion of b(q^2)c(q^6)/(b(q)c(q^3)) in powers of q where b(),c() are cubic AGM analog functions. |
|
+0
2
|
|
| 1, 3, 6, 11, 18, 30, 48, 75, 114, 170, 252, 366, 526, 744, 1044, 1451, 1998, 2730, 3700, 4986, 6672, 8876, 11736, 15438, 20207, 26322, 34134, 44072, 56682, 72612, 92680, 117867, 149400, 188758, 237744, 298554, 373838, 466836, 581412, 722266, 895014
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
Expansion of (eta(q^3)/eta(q^6))^2*(eta(q^2)eta(q^18)/(eta(q)eta(q^9)))^3 in powers of q.
G.f. A(x) satisfies 0=f(A(x), A(x^2)) where f(u, v)= u^2 -v -u*(6*v +4*v^2).
Euler transform of period 18 sequence [ 3, 0, 1, 0, 3, 0, 3, 0, 4, 0, 3, 0, 3, 0, 1, 0, 3, 0, ...].
|
|
PROGRAM
|
(PARI) {a(n)=local(A); if(n<1, 0, n--; A=x*O(x^n); polcoeff( (eta(x^3+A)/eta(x^6+A))^2*(eta(x^2+A)*eta(x^18+A)/eta(x+A)/eta(x^9+A))^3, n))}
|
|
CROSSREFS
|
Sequence in context: A118482 A026905 A066778 this_sequence A053992 A052825 A003082
Adjacent sequences: A123626 A123627 A123628 this_sequence A123630 A123631 A123632
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Oct 03 2006
|
|
|
Search completed in 0.002 seconds
|
