A288489 Theta series of the 24-dimensional lattice of hyper-roots D_6(SU(3)).
1, 0, 162, 2322, 35478, 273942, 1771326, 9680148, 40813632, 150043014, 484705782, 1366155396, 3583894788, 8667408078, 19470974076, 41670759564, 84998113668, 164677106052, 309748771332, 562229221500, 985246266636, 1687344227604, 2821267240722, 4582295154396
Offset: 0
Keywords
Examples
G.f. = 1 + 162*x^2 + 2322*x^3 + 35478*x^4 + ... G.f. = 1 + 162*q^4 + 2322*q^6 + 35478*q^8 + ...
Links
- Andy Huchala, Table of n, a(n) for n = 0..20000
- Robert Coquereaux, Theta functions for lattices of SU(3) hyper-roots, arXiv:1708.00560 [math.QA], 2017.
- P. Di Francesco and J.-B. Zuber, SU(N) lattice integrable models associated with graphs, Nucl. Phys., B 338, pp 602--646, (1990). See also.
- A. Ocneanu, The Classification of subgroups of quantum SU(N), in "Quantum symmetries in theoretical physics and mathematics", Bariloche 2000, Eds. R. Coquereaux, A. Garcia. and R. Trinchero, AMS Contemporary Mathematics, 294, pp. 133-160, (2000). End of Sec 2.5.
Crossrefs
Programs
-
Magma
prec := 10; gram_matrix := [[6,0,0,0,0,0,0,0,2,0,2,0,-2,1,0,1,1,1,2,0,0,0,0,2],[0,6,0,0,0,0,0,0,2,0,2,0,1,-2,0,1,1,1,2,0,0,0,0,2],[0,0,6,0,0,0,0,2,0,2,0,0,0,0,-2,1,0,0,2,-2,0,-2,0,2],[0,0,0,6,0,0,2,2,2,2,2,2,1,1,1,0,1,2,0,0,2,0,2,0],[0,0,0,0,6,0,0,0,2,0,2,0,1,1,0,1,-2,1,2,0,0,0,0,2],[0,0,0,0,0,6,2,0,2,0,2,2,1,1,0,2,1,-1,-2,2,2,2,2,-2],[0,0,0,2,0,2,6,0,0,2,2,0,0,0,0,2,0,2,-1,1,2,2,2,0],[0,0,2,2,0,0,0,6,0,2,0,2,0,0,2,2,0,0,1,-1,1,2,0,2],[2,2,0,2,2,2,0,0,6,0,4,2,2,2,0,2,2,2,2,1,2,0,4,2],[0,0,2,2,0,0,2,2,0,6,0,0,0,0,2,2,0,0,2,2,0,-1,1,1],[2,2,0,2,2,2,2,0,4,0,6,0,2,2,0,2,2,2,2,0,4,1,2,2],[0,0,0,2,0,2,0,2,2,0,0,6,0,0,0,2,0,2,0,2,2,1,2,-1],[-2,1,0,1,1,1,0,0,2,0,2,0,6,0,0,0,0,0,0,0,2,0,2,0],[1,-2,0,1,1,1,0,0,2,0,2,0,0,6,0,0,0,0,0,0,2,0,2,0],[0,0,-2,1,0,0,0,2,0,2,0,0,0,0,6,0,0,0,0,2,0,2,0,0],[1,1,1,0,1,2,2,2,2,2,2,2,0,0,0,6,0,0,2,2,2,2,2,2],[1,1,0,1,-2,1,0,0,2,0,2,0,0,0,0,0,6,0,0,0,2,0,2,0],[1,1,0,2,1,-1,2,0,2,0,2,2,0,0,0,0,0,6,2,0,2,0,2,2],[2,2,2,0,2,-2,-1,1,2,2,2,0,0,0,0,2,0,2,6,0,0,-2,0,4],[0,0,-2,0,0,2,1,-1,1,2,0,2,0,0,2,2,0,0,0,6,0,0,2,-2],[0,0,0,2,0,2,2,1,2,0,4,2,2,2,0,2,2,2,0,0,6,2,2,0],[0,0,-2,0,0,2,2,2,0,-1,1,1,0,0,2,2,0,0,-2,0,2,6,0,0],[0,0,0,2,0,2,2,0,4,1,2,2,2,2,0,2,2,2,0,2,2,0,6,0],[2,2,2,0,2,-2,0,2,2,1,2,-1,0,0,0,2,0,2,4,-2,0,0,0,6]]; S := Matrix(gram_matrix); L := LatticeWithGram(S); T := ThetaSeriesModularForm(L); Coefficients(PowerSeries(T,prec)); // Andy Huchala, May 14 2023
Extensions
More terms from Andy Huchala, May 14 2023
Comments