|
|
A030181
|
|
Expansion of (eta(q) / eta(q^7))^4 in powers of q.
|
|
4
|
|
|
1, -4, 2, 8, -5, -4, -10, 12, -7, 8, 46, -36, -26, -44, 46, -28, 42, 188, -132, -96, -167, 172, -98, 120, 596, -420, -286, -492, 496, -280, 368, 1680, -1151, -792, -1332, 1320, -735, 916, 4264, -2908, -1960, -3252, 3200, -1764, 2230, 10104, -6798, -4560, -7536
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
-1,2
|
|
COMMENTS
|
McKay-Thompson series of class 7B for the Monster group with a(0) = -4.
|
|
REFERENCES
|
N. Elkies, The Klein quartic in number theory, pp. 51-101 of S. Levy, ed., The Eightfold Way, Cambridge Univ. Press, 1999. MR1722413 (2001a:11103)
|
|
LINKS
|
|
|
FORMULA
|
Euler transform of period 7 sequence [ -4, -4, -4, -4, -4, -4, 0, ...]. - Michael Somos, Mar 15 2004
G.f. A(x) satisfies 0 = f(A(x), A(x^2)) where f(u, v) = (u-v)^2 * (u+v) - u*v * (u+7) * (v+7). - Michael Somos, Feb 19 2007
|
|
EXAMPLE
|
1/q - 4 + 2*q + 8*q^2 - 5*q^3 - 4*q^4 - 10*q^5 + 12*q^6 - 7*q^7 + 8*q^8 + ...
|
|
MATHEMATICA
|
QP = QPochhammer; s = (QP[q]/QP[q^7])^4 + O[q]^50; CoefficientList[s, q] (* Jean-François Alcover, Nov 14 2015 *)
|
|
PROG
|
(PARI) {a(n) = local(A); if( n<-1, 0, n++; A = x * O(x^n); polcoeff( (eta(x + A) / eta(x^7 + A))^4, n))} /* Michael Somos, Feb 19 2007 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|