|
PROG
|
(Magma)
// Definition for lattice (SL(2, 9) Y SL(2, 9)).(C2 x C2), from John Cannon
LatticeWithBasis(16, \[ 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 ], MatrixRing(IntegerRing(), 16) ! \[
4, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 4, 2, 1, 1, 1, 2,
1, -1, 1, 1, 0, 1, 0, 1, 1, 2, 2, 4, 0, 1, 2, 2, 1, 1, 1, 2, 1, 0, 1,
1, 2, 1, 1, 0, 4, 1, 1, 1, 2, 0, 2, 1, 1, 2, 1, 1, 0, 1, 1, 1, 1, 4,
1, 1, 1, 1, 0, 0, 0, 1, 2, 2, 2, 2, 1, 2, 1, 1, 4, 1, 1, 2, 1, 2, 2,
0, 2, 1, 2, 1, 2, 2, 1, 1, 1, 4, 1, 0, 2, 2, 1, 1, 0, 1, 1, 1, 1, 1,
2, 1, 1, 1, 4, 1, 2, 2, 2, 1, 1, 1, 0, 1, -1, 1, 0, 1, 2, 0, 1, 4, 1,
1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 0, 1, 2, 2, 1, 4, 2, 2, 1, 0, 0, -1, 2,
1, 2, 1, 0, 2, 2, 2, 1, 2, 4, 2, 0, 0, 1, 1, 1, 0, 1, 1, 0, 2, 1, 2,
2, 2, 2, 4, 1, 0, -1, 1, 1, 1, 0, 2, 1, 0, 1, 1, 1, 1, 0, 1, 4, 1, 1,
1, 2, 0, 1, 1, 2, 2, 0, 1, 2, 0, 0, 0, 1, 4, 2, 1, 2, 1, 1, 1, 2, 1,
1, 1, 1, 0, 1, -1, 1, 2, 4, 1, 1, 1, 2, 0, 2, 2, 1, 0, 1, -1, 1, 1, 1,
1, 1, 4 ])
(Magma)
// Definition for lattice A_2 tensor E_8, from John Cannon
A := Lattice("A", 2);
B := Lattice("E", 8);
L := TensorProduct(A, B);
T<q> := ThetaSeries(L, 16);
(Magma) A := Basis( ModularForms( Gamma0(3), 8), 26); A[1] + 720*A[3]; /* Michael Somos, Feb 01 2017 */
(PARI) {a(n) = if( n<0, 0, my(A, a1); A = x * O(x^n); a1 = (eta(x + A)^3 + 9*x * eta(x^9 + A)^3) / eta(x^3 + A); polcoeff( a1^2 * (a1^6 - 48*x * eta(x + A)^6 * eta(x^3 + A)^6), n))}; /* Michael Somos, Feb 01 2017 */
|