|
Search: id:A128583
|
|
|
| A128583 |
|
Expansion of (eta(q^2)* eta(q^4)* eta(q^6)^2)/ (eta(q)* eta(q^12)) in powers of q. |
|
+0
1
|
|
| 1, 1, 1, 2, 1, 2, 1, 1, 1, 0, 3, 1, 1, 1, 2, 2, 1, 2, 0, 1, 2, 1, 0, 1, 2, 3, 0, 1, 1, 1, 3, 2, 1, 1, 1, 1, 2, 0, 2, 1, 2, 0, 1, 0, 1, 4, 1, 2, 0, 1, 2, 1, 2, 1, 1, 3, 0, 1, 2, 3, 1, 0, 1, 0, 0, 2, 2, 1, 1, 2, 2, 1, 1, 2, 0, 1, 2, 0, 1, 1, 6, 1, 1, 1, 0, 2, 1, 0, 2, 1, 2, 2, 1, 1, 0, 2, 1, 1, 1, 1, 0, 2, 2, 1, 0
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
FORMULA
|
Euler transform of period 12 sequence [ 1, 0, 1, -1, 1, -2, 1, -1, 1, 0, 1, -2, ...].
|
|
PROGRAM
|
(PARI) {a(n)= local(A); if(n<0, 0, A=x*O(x^n); polcoeff( (eta(x^2+A)* eta(x^4+A)* eta(x^6+A)^2)/ (eta(x+A)* eta(x^12+A)), n))}
|
|
CROSSREFS
|
A128582(4n)= a(n).
Sequence in context: A029416 A136571 A108149 this_sequence A064391 A086011 A124760
Adjacent sequences: A128580 A128581 A128582 this_sequence A128584 A128585 A128586
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Mar 11 2007
|
|
|
Search completed in 0.002 seconds
|
