cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

User: Robert Coquereaux

Robert Coquereaux's wiki page.

Robert Coquereaux has authored 29 sequences. Here are the ten most recent ones:

A371251 Number of genus 2 partitions of the set [3n] into n blocks of length 3.

Original entry on oeis.org

1, 144, 6046, 149674, 2771028, 42679084, 578872364, 7153349724, 82324041285, 895669007200, 9311524010712, 93235420275816, 904560813228072, 8543205886920516, 78838778199275032, 713005588584772184, 6334935141516816267, 55407394283320881984
Offset: 2

Author

Robert Coquereaux, Mar 16 2024

Keywords

Comments

Call C(p, [alpha], g) the number of partitions of the cyclically ordered set [p], of cyclic type [alpha], and of genus g (genus g Faa di Bruno coefficients of type [alpha]). The number C(3n, [3^n], g) of genus g partitions of the set [3n] into n blocks of length 3 is given by A001764 when g=0 (non-crossing partitions), by [Zuber] when g = 1 (see A371250) and g=2 (this sequence). One has C(n=6,[3^2],2) = 1, C(n=9, [3^3], 2) = 144, etc.

Examples

			a(2) = 1.
G.f. = X^2 + 144*X^3 + 6046*X^4 + 149674*X^5 + 2771028*X^6 + ...
		

Crossrefs

Cf. A001764 for C(3n,[3^n],0) and A371250 for C(3n,[2^n],1).

Programs

  • Mathematica
    Table[SeriesCoefficient[(( 16 (16321 - 21668 Cos[2 t] + 5054 Cos[4 t] + 578 Cos[6 t] -  276 Cos[8 t]) Sin[3 t]^4)/( 6561 (1 - 4 Sin[t]^2)^11) /. {t -> ArcSin[u]/3}) /. {u -> (3 Sqrt[3 X])/2}, {X, 0, p}], {p, 2, 19}]

Formula

The g.f. Z for C(3n,[3^n],2) obeys the equation [Zuber, sect 4.4.2]
Z = (x^6*(1+113*x^3*z^3+(1610*x^6-72*x^9)*z^6 - 16*x^9*(308+9*x^3)*z^9 + 34016*x^12*z^12 - 90880*x^15*z^15 + 56832*x^18*z^18))/((-1+3*x^3*z^2)*(-1+2*x^3*z^3)^11) where z = (2*sin(arcsin((3*sqrt(3)*sqrt(x^3))/2)/3))/ (sqrt(3)*sqrt(x^3)) = 1+x^3+3x^6+... is the g.f. for the sequence C(3n,[3^n],0), given by A001764. The expansion of Z starts as x^6 + 144*x^9 + 6046*x^12 + 149674*x^15 + ...
As a function of X = x^3, this g.f. can be simplified as (16*(16321 - 21668*cos(2*t) + 5054*cos(4*t) + 578*cos(6*t) - 276*cos(8*t))*sin(3*t)^4)/ (6561(1-4*sin(t)^2)^11) where t = (1/3)*arcsin((3/2)*sqrt(3*X)).

A371250 Number of genus 1 partitions of the set [3n] into n blocks of length 3.

Original entry on oeis.org

6, 102, 1212, 12330, 114888, 1011486, 8558712, 70324884, 564931230, 4457508264, 34662068784, 266296074408, 2025114297696, 15267023594670, 114233412701424, 849144504823848, 6275680692866946, 46143888578211414, 337737723001251660, 2461833584990710434
Offset: 2

Author

Robert Coquereaux, Mar 16 2024

Keywords

Comments

Call C(p,[alpha],g) the number of partitions of the cyclically ordered set [p], of cyclic type [alpha], and of genus g (genus g Faa di Bruno coefficients of type [alpha]). The number C(3n,[3^n],g) of genus g partitions of the set [3n] into n blocks of length 3 is given by A001764 if g=0 (non-crossing partitions), by [Zuber] when g=1 (this sequence) and g=2, see A371251. One has C(n=6,[3^2],1) = 6, C(n=9,[3^3],1) = 102, etc.

Examples

			a(2) = 6.
G.f. = 6*X^2 + 102*X^3 + 1212*X^4 + ...
		

Crossrefs

Cf. A001764 for C(3n,[3^n],0) and A371251 for C(3n,[3^n],2).

Programs

  • Mathematica
    Table[SeriesCoefficient[(32 Sin[t]^2 Sin[3 t]^2)/( 27  (1 + 2 Sin[t])^5 (1 - 2 Sin[t])^5) /. {t ->  1/3  ArcSin[(3*Sqrt[3*X])/2]}, {X, 0, p}], {p, 2, 21}]

Formula

The g.f. Z for C(3n,[3^n],1) is given [Zuber] by Z = (-6*x^6*z^6)/((-1 + 3*x^3*z^2)*(1 - 2*x^3*z^3)^4) where z = (2*sin(arcsin((3*sqrt(3)*sqrt(x^3))/2)/3))/(sqrt(3)*sqrt(x^3)) = 1+x^3+3x^6+... is the g.f. for the sequence C(3n,[3^n],0), given by A001764.
The latter obeys z = 1 + (x*z)^3, therefore Z obeys the cubic equation Z = (-216*x^12-6*x^3(-4+27*x^3)^3*Z^2-(-4+27*x^3)^5*Z^3)/(36*x^6*(-1+81*(x^3+9*x^6))).
The expression of Z given in [Zuber] is
(1152*x^3*sin((1/3)*arcsin((3*sqrt(3*x^3))/2))^6)/((2*cos((1/3)*arccos(1-(27 x^3/2)))-1)*(9*sqrt(x^3)-4*sqrt(3)*sin((1/3)*arcsin((3*sqrt(3*x^3))/2)))^4). Its expansion starts as 6*x^6 + 102*x^9 + 1212*x^12 + ...
As a function of X = x^3, this g.f. can be simplified as
(32*sin(t)^2*sin(3*t)^2)/(27(1+2*sin(t))^5*(1-2*sin(t))^5) where t = (1/3)*arcsin((3/2)*sqrt(3*X)). See the Mathematica program below.
D-finite with recurrence +104*(n-1)*(2*n-3)*a(n) +6*(-2052*n^2+9531*n-11920)*a(n-1) +81*(2133*n^2-11313*n+15580)*a(n-2) +4374*(-207*n^2+1233*n-1930)*a(n-3) +177147*(3*n-10)*(3*n-11)*a(n-4)=0. - R. J. Mathar, Mar 25 2024

A370420 Number of genus g partitions of the n-set which are partitions into k nonempty subsets (blocks). Flattened 3-dimensional array read by n, then by g:0..floor(n-1)/2, then by k:1..n.

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 6, 6, 1, 0, 1, 0, 0, 1, 10, 20, 10, 1, 0, 5, 5, 0, 0, 1, 15, 50, 50, 15, 1, 0, 15, 40, 15, 0, 0, 0, 1, 0, 0, 0, 0, 1, 21, 105, 175, 105, 21, 1, 0, 35, 175, 175, 35, 0, 0, 0, 7, 21, 0, 0, 0, 0, 1, 28, 196, 490, 490, 196, 28, 1, 0, 70, 560, 1050, 560, 70, 0, 0, 0, 28, 210, 161, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0
Offset: 1

Author

Robert Coquereaux, Feb 18 2024

Keywords

Comments

Genus-dependent Stirling numbers of the second kind S2(n,k,g), 1 <= n, 1 <= k <= n, 0 <= g <= floor((n-1)/2). This is an infinite three-dimensional array. Its first 15 rows (n:1..15) are given by the table (see Links) taken from the article by Robert Coquereaux and Jean-Bernard Zuber (where a transpose of this table is given), see p. 32. These 15 rows determine 589 entries of the sequence (Data).
Example: the numbers S2(5,k,0), k=1..5, are {1,10,20,10,1} and appear on line 5, column 1; the numbers S2(5,k,1), k=1..5, are {0,5,5,0,0} and appear on line 5, column 2. Values of S2(n,k,g) for g > floor((n-1)/2) are equal to 0 and are not displayed.
Summing S2(n,k,g) over k gives genus-dependent Bell numbers B(n,g), A370235. Summing S2(n,k,g) over g gives S2(n,k), the Stirling numbers of the second kind A008277. Summing S2(n,k,g) over k and g gives the Bell numbers B(n), A000110. Example: S2(5,k,0) = 1, 10, 20, 10, 1 and S2(5,k,1) = 0, 5, 5, 0, 0 for k = 1..5; therefore S2(5,k) = 1, 15, 25, 10, 1, B(5,0) = 42, B(5,1) = 10, and B(5) = 52.

Examples

			For n:1..7, g:1..floor(n-1)/2, k:1..n. The 3-dimensional array begins:
  {1};
  {1,1};
  {1,3,1};
  {1,6,6,1},               {0,1,0,0};
  {1,10,20,10,1},          {0,5,5,0,0};
  {1,15,50,50,15,1},       {0,15,40,15,0,0},      {0,1,0,0,0,0};
  {1,21,105,175,105,21,1}, {0,35,175,175,35,0,0}, {0,7,21,0,0,0,0};
		

Crossrefs

Cf. A001263 (g=0), A370236 (g=1), A297178 (g=2).
Cf. A370235 (sum over k).

Programs

  • Mathematica
    See Links

Formula

No general formula is currently known. In the particular cases g=0, 1, 2, a formula is known: see Crossrefs.

A370237 Number of genus 3 partitions of the n-set.

Original entry on oeis.org

1, 94, 2620, 45430, 600655, 6633484, 64336844, 565256120
Offset: 8

Author

Robert Coquereaux, Feb 12 2024

Keywords

Comments

Call B(n, g) the number of genus g partitions of a set with n elements (genus-dependent Bell number). Then a(n) = B(n, 3) with B(8, 3) = 1.
a(8) = 1 through a(15) = 565256120 were explicitly determined by listing of partitions of an n-set and selecting those of genus 3.
The coefficients of the sixth-degree polynomial appearing in the numerator of the conjectured formula were determined by using experimental values for a(8) up to a(14); the term a(15) given by the formula agrees with the experimental value.
Using the conjectured formula for a(n) gives the following terms for n=16..20 : 4593034160, 35025118700, 253374008888, 1753071498620, 11675101781850. The E.g.f. given in the Formula section is obtained from the conjectured formula for a(n).

Crossrefs

Formula

Conjecture: a(n) = (1/(2^13 * 3^4 * 5 * 7)) * (35*n^6 - 819*n^5 + 7589*n^4 - 36009*n^3 + 93464*n^2 - 129060*n + 95040)/((2*n - 11)*(2*n - 9)*(2*n - 7)*(2*n - 5)*(2*n - 3)*(2*n - 1)) * (1/(n-8)!) * (2*n)!/n!.
Conjecture: E.g.f.: (1/181440)*exp(2*x)*(x^2*(720 - 720*x + 1080*x^2 - 720*x^3 + 537*x^4 - 294*x^5 + 140*x^6)*BesselI(0, 2*x) + x*(-720 + 720*x - 1440*x^2 + 1080*x^3 - 1017*x^4 + 594*x^5 - 329*x^6 + 140*x^7)*BesselI(1, 2*x)).

A370236 Triangle read by rows: T(n, k) is the number of partitions of genus 1 and k parts of the n-set (n >= 4, 2 <= k <= n-2).

Original entry on oeis.org

1, 5, 5, 15, 40, 15, 35, 175, 175, 35, 70, 560, 1050, 560, 70, 126, 1470, 4410, 4410, 1470, 126, 210, 3360, 14700, 23520, 14700, 3360, 210, 330, 6930, 41580, 97020, 97020, 41580, 6930, 330, 495, 13200, 103950, 332640, 485100, 332640, 103950, 13200, 495
Offset: 4

Author

Robert Coquereaux, Feb 12 2024

Keywords

Comments

The formula given below was conjectured by Martha Yip and proved by Robert Cori and Gábor Hetyei.
More generally one may consider genus-dependent Stirling numbers S(n, k, g) that count the partitions of genus g and k parts of the n-set.
Then T(n, k) = S(n, k, 1). See Robert Coquereaux and Jean-Bernard Zuber.

Examples

			Triangle begins (see Table 3.1 in Yip's thesis):
    1;
    5,    5;
   15,   40,   15;
   35,  175,  175,   35;
   70,  560, 1050,  560,   70;
  126, 1470, 4410, 4410, 1470, 126;
		

Crossrefs

Row sums are A002802.
Cf. A000332, A297178 (genus 2).

Programs

  • Mathematica
    T[n_,k_] := (1/6) Binomial[n, 2] Binomial[n-2, k] Binomial[n-2, k-2];
    Table[T[n,k],{n,4,12},{k,2,n-2}]//Flatten (* Stefano Spezia, Feb 14 2024 *)

Formula

T(n, k) = (1/6)*binomial(n, 2)*binomial(n-2, k)*binomial(n-2, k-2).

A288909 Theta series of the 48-dimensional lattice of hyper-roots E_21(SU(3)).

Original entry on oeis.org

1, 0, 144, 64512, 54181224, 9051337728, 600733473408, 20812816594944, 448918973204472, 6740188251918336, 76049259049861920, 680967847813874688, 5038062720867937080, 31753526303307884544, 174598186489865835840, 853480923125492828160, 3765776231556517654872
Offset: 0

Author

Robert Coquereaux, Sep 01 2017

Keywords

Comments

This lattice is associated with the exceptional module-category E_21(SU(3)) over the fusion (monoidal) category A_21(SU(3)).
The Grothendieck group of the former, a finite abelian category, is a Z+ - module over the Grothendieck ring of the latter, with a basis given by isomorphism classes of simple objects.
Simple objects of A_k(SU(3)) are irreducible integrable representations of the affine Lie algebra of SU(3) at level k.
The classification of module-categories over A_k(SU(3)) was done, using another terminology, by P. Di Francesco and J.-B Zuber, and by A. Ocneanu (see refs below): it contains several infinite families that exist for all values of the positive integer k (among others one finds the A_k(SU(3)) themselves and the orbifold series D_k(SU(3))), and several exceptional cases for special values of k.
To every such module-category one can associate a set of hyper-roots (see refs below) and consider the corresponding lattice, denoted by the same symbol.
E_k(SU(3)), with k=21, is one of the exceptional cases; other exceptional cases exist for k=5 and k=9. It is also special because it has self-fusion (it is flat, in operator algebra parlance).
E_21(SU(3)) has r=24 simple objects. The rank of the lattice is 2r=48. Det =3^12. This lattice, using k=21, is defined by 2r(k+3)^2/3=9216 hyper-roots of norm 6.
The first shell is made of vectors of norm 4, they are not hyper-roots, and the second shell, of norm 6, contains not only the hyper-roots but other vectors as well. Note: for lattices of type A_k(SU(3)), vectors of shortest length and hyper-roots coincide, here this is not so.
The lattice is rescaled (q --> q^2): its theta function starts as 1 +144*q^4 + 64512*q^6 +... See example.
This theta series is an element of Gamma_0(3) of weight 24 and dimension 9. - Andy Huchala, May 14 2023

Examples

			G.f. = 1 + 144*x^2 + 64512*x^3 + 54181224*x^4 + ...
G.f. = 1 + 144*q^4 + 64512*q^6 + 54181224*q^8 + ...
		

Crossrefs

Cf. A008434. {D_6}^{+} lattice is rescaled A_1(SU(3)).
Cf. A290654 is A_2(SU(3)). Cf. A290655 is A_3(SU(3)). Cf. A287329 is A_4(SU(3)). Cf. A287944 is A_5(SU(3)).

Extensions

More terms from Andy Huchala, May 15 2023

A288779 Theta series of the 24-dimensional lattice of hyper-roots E_9(SU(3)).

Original entry on oeis.org

1, 0, 756, 5760, 98928, 1092096, 8435760, 45142272, 202712400, 715373568, 2350118808, 6501914496, 17469036096, 40850459136, 95266994400, 197161655040, 413591044176, 781142621184, 1511741623812, 2655160539264, 4815051144480, 7984019699712, 13744582363152
Offset: 0

Author

Robert Coquereaux, Sep 01 2017

Keywords

Comments

This lattice is associated with the exceptional module-category E_9(SU(3)) over the fusion (monoidal) category A_9(SU(3)).
The Grothendieck group of the former, a finite abelian category, is a Z+ - module over the Grothendieck ring of the latter, with a basis given by isomorphism classes of simple objects.
Simple objects of A_k(SU(3)) are irreducible integrable representations of the affine Lie algebra of SU(3) at level k.
The classification of module-categories over A_k(SU(3)) was done, using another terminology, by P. Di Francesco and J.-B Zuber, and by A. Ocneanu (see refs below): it contains several infinite families that exist for all values of the positive integer k (among others one finds the A_k(SU(3)) themselves and the orbifold series D_k(SU(3))), and several exceptional cases for special values of k.
To every such module-category one can associate a set of hyper-roots (see refs below) and consider the corresponding lattice, denoted by the same symbol.
E_k(SU(3)), with k=9, is one of the exceptional cases; other exceptional cases exist for k=5 and k=21. It is also special because it has self-fusion (it is flat, in operator algebra parlance).
E_9(SU(3)) has r=12 simple objects. The rank of the lattice is 2r=24. Det =2^24. This lattice, using k=9, is defined by 2*r*(k+3)^2/3=1152 hyper-roots of norm 6. The first shell is made of vectors of norm 4, they are not hyper-roots, and the second shell, of norm 6, contains not only the hyper-roots, but other vectors as well. Note: for lattices of type A_k(SU(3)), vectors of shortest length and hyper-roots coincide, here this is not so.
The lattice is rescaled (q --> q^2): its theta function starts as 1 + 756*q^4 + 5760*q^6 +... See example.
This theta series is an element of the space of modular forms on Gamma_0(8) of weight 12 and dimension 13. - Andy Huchala, May 14 2023

Examples

			G.f. = 1 + 756*x^2 + 5760*x^3 + 98928*x^4 + ...
G.f. = 1 + 756*q^4 + 5760*q^6 + 98928*q^8 + ...
		

Crossrefs

Cf. A008434. {D_6}^{+} lattice is rescaled A_1(SU(3)).
Cf. A290654 is A_2(SU(3)). Cf. A290655 is A_3(SU(3)). Cf. A287329 is A_4(SU(3)). Cf. A287944 is A_5(SU(3)).

Programs

  • Magma
    prec := 20;
    gram := [[6,0,0,0,2,0,0,0,2,0,0,0,-2,0,0,1,-2,0,0,2,-2,0,0,2],[0,6,0,0,0,2,0,0,0,2,0,0,0,-2,0,1,0,-2,0,2,0,-2,0,2],[0,0,6,0,0,0,2,0,0,0,2,0,0,0,-2,1,0,0,-2,2,0,0,-2,2],[0,0,0,6,2,2,2,4,2,2,2,4,1,1,1,4,2,2,2,2,2,2,2,2],[2,0,0,2,6,0,0,0,2,0,0,2,2,0,0,2,-1,1,1,2,2,0,0,2],[0,2,0,2,0,6,0,0,0,2,0,2,0,2,0,2,1,-1,1,2,0,2,0,2],[0,0,2,2,0,0,6,0,0,0,2,2,0,0,2,2,1,1,-1,2,0,0,2,2],[0,0,0,4,0,0,0,6,2,2,2,2,0,0,0,4,2,2,2,1,2,2,2,2],[2,0,0,2,2,0,0,2,6,0,0,0,2,0,0,2,2,0,0,2,-1,1,1,2],[0,2,0,2,0,2,0,2,0,6,0,0,0,2,0,2,0,2,0,2,1,-1,1,2],[0,0,2,2,0,0,2,2,0,0,6,0,0,0,2,2,0,0,2,2,1,1,-1,2],[0,0,0,4,2,2,2,2,0,0,0,6,0,0,0,4,2,2,2,2,2,2,2,1],[-2,0,0,1,2,0,0,0,2,0,0,0,6,0,0,0,2,0,0,0,2,0,0,0],[0,-2,0,1,0,2,0,0,0,2,0,0,0,6,0,0,0,2,0,0,0,2,0,0],[0,0,-2,1,0,0,2,0,0,0,2,0,0,0,6,0,0,0,2,0,0,0,2,0],[1,1,1,4,2,2,2,4,2,2,2,4,0,0,0,6,2,2,2,4,2,2,2,4],[-2,0,0,2,-1,1,1,2,2,0,0,2,2,0,0,2,6,0,0,0,0,2,2,0],[0,-2,0,2,1,-1,1,2,0,2,0,2,0,2,0,2,0,6,0,0,2,0,2,0],[0,0,-2,2,1,1,-1,2,0,0,2,2,0,0,2,2,0,0,6,0,2,2,0,0],[2,2,2,2,2,2,2,1,2,2,2,2,0,0,0,4,0,0,0,6,0,0,0,4],[-2,0,0,2,2,0,0,2,-1,1,1,2,2,0,0,2,0,2,2,0,6,0,0,0],[0,-2,0,2,0,2,0,2,1,-1,1,2,0,2,0,2,2,0,2,0,0,6,0,0],[0,0,-2,2,0,0,2,2,1,1,-1,2,0,0,2,2,2,2,0,0,0,0,6,0],[2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,4,0,0,0,4,0,0,0,6]];
    S := Matrix(gram);
    L := LatticeWithGram(S);
    T := ThetaSeriesModularForm(L);
    Coefficients(PowerSeries(T,prec)); // Andy Huchala, May 14 2023

Extensions

More terms from Andy Huchala, May 14 2023

A288776 Theta series of the 24-dimensional lattice of hyper-roots E_5(SU(3)).

Original entry on oeis.org

1, 0, 0, 512, 11232, 145920, 1055616, 5618688, 25330128, 89127936, 295067136, 810542592, 2185379968, 5109275136, 11899724544, 24646120448, 51701896272, 97674279936, 188911940608, 331864693248, 602050989120, 997987350528, 1717717782144, 2714582258688
Offset: 0

Author

Robert Coquereaux, Sep 01 2017

Keywords

Comments

This lattice is associated with the exceptional module-category E_5(SU(3)) over the fusion (monoidal) category A_5(SU(3)).
The Grothendieck group of the former, a finite abelian category, is a Z+ - module over the Grothendieck ring of the latter, with a basis given by isomorphism classes of simple objects.
Simple objects of A_k(SU(3)) are irreducible integrable representations of the affine Lie algebra of SU(3) at level k.
The classification of module-categories over A_k(SU(3)) was done, using another terminology, by P. Di Francesco and J.-B Zuber, and by A. Ocneanu (see refs below): it contains several infinite families that exist for all values of the positive integer k (among others one finds the A_k(SU(3)) themselves and the orbifold series D_k(SU(3))), and several exceptional cases for special values of k.
To every such module-category one can associate a set of hyper-roots (see refs below) and consider the corresponding lattice, denoted by the same symbol.
E_k(SU(3)), with k=5, is one of the exceptional cases; other exceptional cases exist for k=9 and k=21. It is also special because it has self-fusion (it is flat, in operator algebra parlance).
E_5(SU(3)) has r=12 simple objects. The rank of the lattice is 2r=24. Det =2^30. This lattice, with k=5, is defined by 2 * r * (k+3)^2/3=512 hyper-roots of norm 6. They are also the vectors of shortest length (so, vectors of shortest length and hyper-roots coincide, like for lattices of type A_k(SU(3))). Minimal norm is 6.
The lattice is rescaled (q --> q^2): its theta function starts as 1 + 512*q^6 + 11232*q^8 +... See example.
This theta series is an element of the space of modular forms on Gamma_0(16) of weight 12 and dimension 25. - Andy Huchala, May 14 2023

Crossrefs

Cf. A008434. {D_6}^{+} lattice is rescaled A_1(SU(3)).
Cf. A290654 is A_2(SU(3)). Cf. A290655 is A_3(SU(3)). Cf. A287329 is A_4(SU(3)). Cf. A287944 is A_5(SU(3)).

Programs

  • Magma
    prec := 20;
    gram := [[6,0,0,0,0,0,2,0,0,0,2,0,-2,0,1,1,0,2,-2,2,2,0,-2,2],[0,6,0,0,0,0,0,2,0,0,0,2,0,-2,1,1,2,0,2,-2,0,2,2,-2],[0,0,6,0,2,0,2,2,2,0,2,2,1,1,0,2,-2,2,2,0,-2,2,0,2],[0,0,0,6,0,2,2,2,0,2,2,2,1,1,2,0,2,-2,0,2,2,-2,2,0],[0,0,2,0,6,0,0,0,0,0,0,2,0,0,2,0,-2,0,1,1,0,0,0,2],[0,0,0,2,0,6,0,0,0,0,2,0,0,0,0,2,0,-2,1,1,0,0,2,0],[2,0,2,2,0,0,6,0,2,0,2,2,2,0,2,2,1,1,0,2,2,0,2,2],[0,2,2,2,0,0,0,6,0,2,2,2,0,2,2,2,1,1,2,0,0,2,2,2],[0,0,2,0,0,0,2,0,6,0,0,0,0,0,2,0,0,0,2,0,-2,0,1,1],[0,0,0,2,0,0,0,2,0,6,0,0,0,0,0,2,0,0,0,2,0,-2,1,1],[2,0,2,2,0,2,2,2,0,0,6,0,2,0,2,2,0,2,2,2,1,1,0,2],[0,2,2,2,2,0,2,2,0,0,0,6,0,2,2,2,2,0,2,2,1,1,2,0],[-2,0,1,1,0,0,2,0,0,0,2,0,6,0,0,0,0,0,2,0,0,0,2,0],[0,-2,1,1,0,0,0,2,0,0,0,2,0,6,0,0,0,0,0,2,0,0,0,2],[1,1,0,2,2,0,2,2,2,0,2,2,0,0,6,0,2,0,2,2,2,0,2,2],[1,1,2,0,0,2,2,2,0,2,2,2,0,0,0,6,0,2,2,2,0,2,2,2],[0,2,-2,2,-2,0,1,1,0,0,0,2,0,0,2,0,6,0,0,0,2,0,2,-2],[2,0,2,-2,0,-2,1,1,0,0,2,0,0,0,0,2,0,6,0,0,0,2,-2,2],[-2,2,2,0,1,1,0,2,2,0,2,2,2,0,2,2,0,0,6,0,-2,2,2,0],[2,-2,0,2,1,1,2,0,0,2,2,2,0,2,2,2,0,0,0,6,2,-2,0,2],[2,0,-2,2,0,0,2,0,-2,0,1,1,0,0,2,0,2,0,-2,2,6,0,0,0],[0,2,2,-2,0,0,0,2,0,-2,1,1,0,0,0,2,0,2,2,-2,0,6,0,0],[-2,2,0,2,0,2,2,2,1,1,0,2,2,0,2,2,2,-2,2,0,0,0,6,0],[2,-2,2,0,2,0,2,2,1,1,2,0,0,2,2,2,-2,2,0,2,0,0,0,6]];
    S := Matrix(gram);
    L := LatticeWithGram(S);
    T := ThetaSeriesModularForm(L);
    Coefficients(PowerSeries(T,prec)); // Andy Huchala, May 14 2023

Formula

G.f. = 1 + 512*x^3 + 11232*x^4 + 145920*x^5 + ...
G.f. = 1 + 512*q^6 + 11232*q^8 + 145920*q^10 + ...

Extensions

More terms from Andy Huchala, May 14 2023

A288489 Theta series of the 24-dimensional lattice of hyper-roots D_6(SU(3)).

Original entry on oeis.org

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

Author

Robert Coquereaux, Sep 01 2017

Keywords

Comments

This lattice is the k=6 member of the family of lattices of SU(3) hyper-roots associated with the module-category D_k(SU(3)) over the fusion (monoidal) category A_k(SU(3)).
The Grothendieck group of the former, a finite abelian category, is a Z+ - module over the Grothendieck ring of the latter, with a basis given by isomorphism classes of simple objects.
Simple objects of A_k(SU(3)) are irreducible integrable representations of the affine Lie algebra of SU(3) at level k.
The classification of module-categories over A_k(SU(3)) was done, using another terminology, by P. Di Francesco and J.-B Zuber, and by A. Ocneanu (see refs below): it contains several infinite families that exist for all values of the positive integer k (among others one finds the A_k(SU(3)) themselves and the orbifold series D_k(SU(3))), and several exceptional cases for special values of k.
To every such module-category one can associate a set of hyper-roots (see refs below) and consider the corresponding lattice, denoted by the same symbol.
Members of the subfamily D_{3s} are special because they have self-fusion (they are flat, in operator algebra parlance). D_6(SU(3)) is the second smallest member of the D_{3s} family (s=2).
With k=6 there are r = ((k+1)*(k+2)/2 - 1)/3 + 3 = 12 simple objects. The rank of the lattice is 2r=24. The lattice is defined by 2*r*(k+3)^2/3 = 648 hyper-roots of norm 6. Det = 3^18. The first shell is made of vectors of norm 4, they are not hyper-roots, and the second shell, of norm 6, contains not only the hyper-roots but other vectors. Note: for lattices of type A_k(SU(3)), vectors of shortest length and hyper-roots coincide, here this is not so.
The lattice is rescaled (q --> q^2): its theta function starts as 1 + 162*q^4 + 2322*q^6 + ... See example.
This theta series is an element of the space of modular forms on Gamma_0(27) of weight 12 and dimension 36. - Andy Huchala, May 14 2023

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 + ...
		

Crossrefs

Cf. A008434. {D_6}^{+} lattice is rescaled A_1(SU(3)).
Cf. A290654 is A_2(SU(3)). Cf. A290655 is A_3(SU(3)). Cf. A287329 is A_4(SU(3)). Cf. A287944 is A_5(SU(3)).
Cf. A288488 is D_3(SU(3)). Cf. A288776, A288779, A288909.

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

A288488 Theta series of the 12-dimensional lattice of hyper-roots D_3(SU(3)).

Original entry on oeis.org

1, 0, 36, 144, 486, 2880, 5724, 7776, 31068, 40320, 47628, 149184, 178452, 171072, 511776, 527904, 500094, 1309824, 1339308, 1143072, 3049992, 2840256, 2451384, 5942016, 5709636, 4510080, 11313720, 9849744, 8199792, 18929088, 17426664, 13211424, 31971132
Offset: 0

Author

Robert Coquereaux, Sep 01 2017

Keywords

Comments

This lattice is the k=3 member of the family of lattices of SU(3) hyper-roots associated with the module-category D_k(SU(3)) over the fusion (monoidal) category A_k(SU(3)).The Grothendieck group of the former, a finite abelian category, is a Z+ - module over the Grothendieck ring of the latter, with a basis given by isomorphism classes of simple objects.
Simple objects of A_k(SU(3)) are irreducible integrable representations of the affine Lie algebra of SU(3) at level k.
The classification of module-categories over A_k(SU(3)) was done, using another terminology, by P. Di Francesco and J.-B Zuber, and by A. Ocneanu (see refs below): it contains several infinite families that exist for all values of the positive integer k (among others one finds the A_k(SU(3)) themselves and the orbifold series D_k(SU(3))), and several exceptional cases for special values of k.
To every such module-category one can associate a set of hyper-roots (see refs below) and consider the corresponding lattice, denoted by the same symbol.
Members of the sub-family D_{3s} are special because they have self-fusion (they are flat, in operator algebra parlance). D_3(SU(3)) is the smallest member of the D_{3s} family (s=1).
With k=3 there are r=((k+1)(k+2)/2 -1)/3+3=6 simple objects. The rank of the lattice is 2r=12. The lattice is defined by 2r(k+3)^2/3=144 hyper-roots of norm 6. Det =3^12. The first shell is made of vectors of norm 4, they are not hyper-roots, and the only vectors of the lattice that belong to the second shell, of norm 6, are precisely the hyper-roots. Note: for lattices of type A_k(SU(3)), vectors of shortest length and hyper-roots coincide, here this is not so.
The lattice is rescaled (q --> q^2): its theta function starts as 1 + 36*q^4 + 144*q^6 +... See example.

Examples

			G.f. = 1 + 36*x^2 + 144*x^3 + 486*x^4 + ...
G.f. = 1 + 36*q^4 + 144*q^6 + 486*q^8 + ...
		

References

  • P. Di Francesco and J.-B. Zuber, SU(N) lattice integrable models associated with graphs, Nucl. Phys., B 338, pp 602--646, (1990).

Crossrefs

Cf. A008434. {D_6}^{+} lattice is rescaled A_1(SU(3)).
Cf. A290654 is A_2(SU(3)). Cf. A290655 is A_3(SU(3)). Cf. A287329 is A_4(SU(3)). Cf. A287944 is A_5(SU(3)).

Programs

  • Magma
    prec := 20;
    gram := [[6,0,0,0,2,2,-2,1,1,1,0,0],[0,6,0,0,2,2,1,-2,1,1,0,0],[0,0,6,0,2,2,1,1,-2,1,0,0],[0,0,0,6,2,2,1,1,1,-2,0,0],[2,2,2,2,6,4,2,2,2,2,1,4],[2,2,2,2,4,6,2,2,2,2,4,1],[-2,1,1,1,2,2,6,0,0,0,2,2],[1,-2,1,1,2,2,0,6,0,0,2,2],[1,1,-2,1,2,2,0,0,6,0,2,2],[1,1,1,-2,2,2,0,0,0,6,2,2],[0,0,0,0,1,4,2,2,2,2,6,0],[0,0,0,0,4,1,2,2,2,2,0,6]];
    S := Matrix(gram);
    L := LatticeWithGram(S);
    T := ThetaSeries(L, 14);
    M := ThetaSeriesModularFormSpace(L);
    B := Basis(M,prec);
    Coefficients(&+[Coefficients(T)[2*i-1]*B[i] :i in [1..7]]); // Andy Huchala, May 14 2023

Extensions

More terms from Andy Huchala, May 14 2023