|
Search: id:A094023
|
|
|
| A094023 |
|
Expansion of eta(q^6)eta(q^10)/(eta(q)eta(q^15)) in powers of q. |
|
+0
2
|
|
| 1, 1, 2, 3, 5, 7, 10, 14, 20, 27, 36, 48, 63, 82, 106, 137, 175, 222, 280, 352, 439, 546, 676, 834, 1024, 1253, 1528, 1857, 2250, 2718, 3276, 3936, 4718, 5640, 6728, 8006, 9507, 11266, 13324, 15726, 18526, 21786, 25574, 29970, 35064, 40961, 47774, 55638
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
FORMULA
|
G.f. A(x) satisfies 0=f(A(x),A(x^2)) where f(u,v)=u^2-v+2v^2-2uv^2.
G.f. A(x) satisfies A(x)+A(-x)=2A(x^2)^2, (1-A(x))(1-A(-x))=1-A(x^2).
Euler transform of period 30 sequence [1,1,1,1,1,0,1,1,1,0,1,0,1,1,2,1,1,0,1,0,1,1,1,0,1,1,1,1,1,0,...].
|
|
PROGRAM
|
(PARI) a(n)=local(A); if(n<0, 0, A=x*O(x^n); polcoeff(eta(x^6+A)*eta(x^10+A)/eta(x+A)/eta(x^15+A), n))
(PARI) {a(n)=local(A); if(n<0, 0, A=x*O(x^n); polcoeff( eta(x^6+A)*eta(x^10+A)/ eta(x+A)/eta(x^15+A), n))}
|
|
CROSSREFS
|
Sequence in context: A035960 A023893 A065094 this_sequence A123630 A035967 A097797
Adjacent sequences: A094020 A094021 A094022 this_sequence A094024 A094025 A094026
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Apr 22 2004
|
|
|
Search completed in 0.002 seconds
|
