|
Search: id:A107653
|
|
|
| A107653 |
|
Expansion of (eta(q)eta(q^3)eta(q^4)eta(q^12)/(eta(q^2)eta(q^6))^2)^6 in powers of q. |
|
+0
3
|
|
| 1, -6, 21, -68, 198, -510, 1248, -2904, 6393, -13604, 28044, -55956, 108982, -207552, 386622, -707216, 1271970, -2250582, 3925780, -6757272, 11483232, -19290824, 32057352, -52722744, 85884503, -138644292, 221885805, -352241792, 554892894
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
Euler transform of period 12 sequence [ -6, 6, -12, 0, -6, 12, -6, 0, -12, 6, -6, 0, ...]. - Michael Somos, Jun 13 2005
G.f.: x(Product_{k>0} ((1+x^(2k))(1+x^(6k)))/((1+x^k)(1+x^(3k))))^6.
|
|
EXAMPLE
|
q - 6*q^2 + 21*q^3 - 68*q^4 + 198*q^5 - 510*q^6 + 1248*q^7 + ...
|
|
PROGRAM
|
(PARI) {a(n)=local(A); if(n<1, 0, n--; A=x*O(x^n); polcoeff( (eta(x+A)*eta(x^3+A)*eta(x^4+A)*eta(x^12+A)/eta(x^2+A)^2/eta(x^6+A)^2)^6, n))} /* Michael Somos Jun 13 2005 */
|
|
CROSSREFS
|
Sequence in context: A105457 A134931 A119103 this_sequence A123653 A101904 A022814
Adjacent sequences: A107650 A107651 A107652 this_sequence A107654 A107655 A107656
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com), Jun 07 2005
|
|
EXTENSIONS
|
Revised by Michael Somos, Jun 12 2005
|
|
|
Search completed in 0.002 seconds
|
