|
| |
|
|
A123676
|
|
Expansion of b(q)*c(q^3)/(b(q^2)*c(q^6)) in powers of q where b(),c() are cubic AGM analog functions.
|
|
0
| |
|
|
1, -3, 3, -2, 3, -6, 10, -12, 15, -22, 30, -36, 44, -60, 78, -96, 117, -150, 190, -228, 276, -340, 420, -504, 603, -732, 885, -1052, 1245, -1488, 1770, -2088, 2454, -2902, 3420, -3996, 4666, -5460, 6378, -7400, 8583, -9972, 11566, -13344, 15378, -17752, 20448, -23472, 26904, -30876
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| -1,2
|
|
|
FORMULA
| Expansion of q^(-1)*(chi(-q)*chi(-q^9))^3/chi(-q^3)^2 in powers of q where chi() is a Ramanjuan theta function.
Euler transform of period 18 sequence [ -3, 0, -1, 0, -3, 0, -3, 0, -4, 0, -3, 0, -3, 0, -1, 0, -3, 0, ...].
Given g.f. A(x), then B(x)=1/A(x) satisfies 0=f(B(x), B(x^2)) where f(u,v)= u^2 -v -u*(6*v +4*v^2).
|
|
|
PROG
| (PARI) {a(n)=local(A); if(n<-1, 0, n++; A=x*O(x^n); polcoeff( (eta(x+A)*eta(x^9+A)/eta(x^2+A)/eta(x^18+A))^3* (eta(x^6+A)/eta(x^3+A))^2, n))}
|
|
|
CROSSREFS
| Convolution inverse of A123629.
Cf. A058533. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Dec 13 2008]
Sequence in context: A057853 A129309 A003560 * A122775 A086632 A038699
Adjacent sequences: A123673 A123674 A123675 * A123677 A123678 A123679
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Michael Somos, Oct 05 2006
|
| |
|
|
