|
Search: id:A128591
|
|
|
| A128591 |
|
Expansion of (eta(q^2)^4* eta(q^3)* eta(q^12))/ (eta(q)^2* eeta(q^4)* ta(q^6)) in powers of q. |
|
+0
1
|
|
| 1, 2, 1, 1, 1, 1, 2, 1, 2, 1, 1, 3, 0, 0, 1, 2, 2, 1, 1, 1, 1, 2, 3, 1, 1, 0, 2, 1, 1, 2, 0, 2, 0, 2, 1, 0, 4, 2, 0, 1, 1, 2, 1, 2, 2, 1, 2, 0, 1, 1, 2, 0, 1, 1, 1, 2, 2, 2, 0, 1, 1, 3, 1, 1, 0, 1, 4, 1, 2, 1, 0, 4, 0, 0, 1, 1, 2, 1, 2, 1, 1, 0, 1, 1, 1, 2, 3, 1, 2, 0, 0, 2, 2, 1, 1, 2, 2, 1, 0, 4, 1, 2, 1, 0, 0
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
Euler transform of period 12 sequence [ 2, -2, 1, -1, 2, -2, 2, -1, 1, -2, 2, -2, ...].
|
|
PROGRAM
|
(PARI) {a(n)= local(A); if(n<0, 0, A=x*O(x^n); polcoeff( (eta(x^2+A)^4* eta(x^3+A)* eta(x^12+A))/ (eta(x+A)^2* eta(x^4+A)* eta(x^6+A)), n))}
|
|
CROSSREFS
|
A128582(4n+1)= a(n).
Sequence in context: A115722 A115721 A138330 this_sequence A102005 A051700 A025892
Adjacent sequences: A128588 A128589 A128590 this_sequence A128592 A128593 A128594
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Mar 11 2007
|
|
|
Search completed in 0.002 seconds
|
