|
| |
|
|
A121667
|
|
Expansion of (eta(q)eta(q^2)/(eta(q^3)eta(q^6)))^4 in powers of q.
|
|
0
| |
|
|
1, -4, -2, 28, -27, -52, 136, -108, -162, 620, -486, -760, 1970, -1404, -1940, 6048, -4293, -6100, 15796, -10692, -14264, 40232, -27108, -36496, 93285, -61020, -79054, 211624, -137781, -179296, 451680, -288360, -365780, 945836, -601020, -763016, 1897294, -1188756
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| -1,2
|
|
|
FORMULA
| Expansion of 9*b(q)*b(q^2)/(c(q)*c(q^2)) in powers of q where b(q),c(q) are cubic AGM analog functions.
Euler transform of period 6 sequence [ -4, -8, 0, -8, -4, 0, ...].
G.f. A(x) satisfies 0=f(A(x), A(x^2)) where f(u,v)=(u^2+u*v+v^2)^2 -u*v*(9+u+v)*(u*v+9*(u+v)).
|
|
|
PROG
| (PARI) {a(n)=if(n<-1, 0, n++; A=x*O(x^n); polcoeff( (eta(x+A)*eta(x^2+A)/eta(x^3+A)/eta(x^6+A))^4, n))}
|
|
|
CROSSREFS
| Cf. A045487, A007257.
Sequence in context: A095896 A123670 A200032 * A093991 A030447 A076936
Adjacent sequences: A121664 A121665 A121666 * A121668 A121669 A121670
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Michael Somos, Aug 14 2006
|
| |
|
|
