|
Search: id:A128582
|
|
|
| A128582 |
|
Expansion of q* psi(q)* psi(-q^3)/ chi(-q^4)^2 in powers of q where psi(), chi() are Ramanujan theta functions. |
|
+0
5
|
|
| 1, 1, 0, 0, 1, 2, 0, 0, 1, 1, 0, 0, 2, 1, 0, 0, 1, 1, 0, 0, 2, 1, 0, 0, 1, 2, 0, 0, 1, 1, 0, 0, 1, 2, 0, 0, 0, 1, 0, 0, 3, 1, 0, 0, 1, 3, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 2, 1, 0, 0, 2, 2, 0, 0, 1, 2, 0, 0, 2, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 2, 1, 0, 0, 1, 2, 0, 0, 0, 3, 0, 0, 1, 1, 0, 0, 2, 1, 0, 0, 3, 0, 0, 0, 0
(list; graph; listen)
|
|
|
OFFSET
|
1,6
|
|
|
FORMULA
|
Expansion of eta(q^2)^2* eta(q^3)* eta(q^8)^2* eta(q^12)/ (eta(q)* eta(q^4)^2* eta(q^6)) in powers of q.
Euler transform of period 24 sequence [ 1, -1, 0, 1, 1, -1, 1, -1, 0, -1, 1, 0, 1, -1, 0, -1, 1, -1, 1, 1, 0, -1, 1, -2, ...].
|
|
PROGRAM
|
(PARI) {a(n)= if(n<1, 0, n=6*n-1; -1/2*sumdiv(n, d, kronecker(-12, d)*kronecker(8, n/d)))}
(PARI) {a(n)= local(A); if(n<1, 0, n--; A= x*O(x^n); polcoeff( eta(x^2+A)^2* eta(x^3+A)* eta(x^8+A)^2* eta(x^12+A)/ (eta(x+A)* eta(x^4+A)^2* eta(x^6+A)), n))}
|
|
CROSSREFS
|
A128580(3n+2)= -2*a(n).
Sequence in context: A159708 A144625 A025442 this_sequence A101606 A125005 A122179
Adjacent sequences: A128579 A128580 A128581 this_sequence A128583 A128584 A128585
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Somos, Mar 11 2007
|
|
|
Search completed in 0.002 seconds
|
