A003875 -id:A003875 - cp's OEIS frontend

A003040 Highest degree of an irreducible representation of symmetric group S_n of degree n.

1, 1, 2, 3, 6, 16, 35, 90, 216, 768, 2310, 7700, 21450, 69498, 292864, 1153152, 4873050, 16336320, 64664600, 249420600, 1118939184, 5462865408, 28542158568, 117487079424, 547591590000, 2474843571200, 12760912164000, 57424104738000, 295284192952320

Offset: 1

N. J. A. Sloane and Richard Stanley

nonn

Highest number of standard tableaux of the Ferrers diagrams of the partitions of n. Example: a(4) = 3 because to the partitions 4, 31, 22, 211, and 1111 there correspond 1, 3, 2, 3, and 1 standard tableaux, respectively. - Emeric Deutsch, Oct 02 2015

			a(5) = 6 because the degrees for S_5 are 1,1,4,4,5,5,6.

J. H. Conway, R. T. Curtis, S. P. Norton, R. A. Parker and R. A. Wilson, ATLAS of Finite Groups. Oxford Univ. Press, 1985 [for best online version see https://oeis.org/wiki/Welcome#Links_to_Other_Sites].
D. E. Littlewood, The Theory of Group Characters and Matrix Representations of Groups. 2nd ed., Oxford University Press, 1950, p. 265.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Vasilii Duzhin, Table of n, a(n) for n = 1..153 (terms up to a(80) from Eric M. Schmidt)
S. Comét, Improved methods to calculate the characters of the symmetric group, Math. Comp. 14 (1960) 104-117.
J. McKay, The largest degrees of irreducible characters of the symmetric group. Math. Comp. 30 (1976), no. 135, 624-631. (Gives first 75 terms.)
J. McKay, Page 1 of 5 pages of tables from Math. Comp. paper [reports 29th term incorrectly]
J. McKay, Page 2 of 5 pages of tables from Math. Comp. paper
J. McKay, Page 3 of 5 pages of tables from Math. Comp. paper
J. McKay, Page 4 of 5 pages of tables from Math. Comp. paper
J. McKay, Page 5 of 5 pages of tables from Math. Comp. paper
Igor Pak, Greta Panova, and Damir Yeliussizov, On the largest Kronecker and Littlewood-Richardson coefficients, arXiv:1804.04693 [math.CO], 2018.
R. P. Stanley, Letter to N. J. A. Sloane, c. 1991

A117500 gives the corresponding partitions of n.

Cf. A003869, A003870, A003871, A003872, A003873, A003874, A003875, A003876, A003877.

h[l_] := With[{n = Length[l]}, Total[l]!/Product[Product[1 + l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i + 1, n}], {j, 1, l[[i]]}], {i, 1, n}]];
g[n_, i_, l_] := If[n == 0 || i == 1, h[Join[l, Array[1 &, n]]], If[i < 1, 0, Flatten@ Table[g[n - i*j, i - 1, Join[l, Array[i&, j]]], {j, 0, n/i}]]];
a[n_] := a[n] = g[n, n, {}] // Max;
Table[Print[n, " ", a[n]]; a[n], {n, 1, 50}] (* Jean-François Alcover, Sep 23 2024, after Alois P. Heinz in A060240 *)

def A003040(n):
    res = 1
    for P in Partitions(n):
        res = max(res, P.dimension())
    return res
# Eric M. Schmidt, May 07 2013

Entry revised and extended by N. J. A. Sloane, Apr 28 2006

a(29) corrected by Eric M. Schmidt, May 07 2013

A003869 Degrees of irreducible representations of symmetric group S_5.

Original entry on oeis.org

1, 1, 4, 4, 5, 5, 6

Offset: 1

N. J. A. Sloane

All 7 terms of this finite sequence are shown.

J. H. Conway, R. T. Curtis, S. P. Norton, R. A. Parker, and R. A. Wilson, ATLAS of Finite Groups. Oxford Univ. Press, 1985 [for best online version see https://oeis.org/wiki/Welcome#Links_to_Other_Sites].

Row n=5 of A060240.

Cf. A003870, A003871, A003872, A003873.

A003869 := List(Irr(CharacterTable("S5")), chi->chi[1]);; Sort(A003869); # Eric M. Schmidt, Jul 18 2012

Magma
```
// See A003875 for Magma code
```

h[l_] := With[{n = Length[l]}, Total[l]!/Product[Product[1 + l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i + 1, n}], {j, 1, l[[i]]}], {i, 1, n}]];
g[n_, i_, l_] := If[n == 0 || i == 1, h[Join[l, Array[1&, n]]], If[i < 1, 0, Flatten@ Table[g[n - i*j, i - 1, Join[l, Array[i &, j]]], {j, 0, n/i}]]];
T[n_] := g[n, n, {}];
Sort[T[5]] (* Jean-François Alcover, Sep 22 2024, after Alois P. Heinz in A060240 *)

A003876 Degrees of irreducible representations of symmetric group S_12.

Original entry on oeis.org

1, 1, 11, 11, 54, 54, 55, 55, 132, 132, 154, 154, 165, 165, 275, 275, 297, 297, 320, 320, 330, 330, 462, 462, 462, 462, 616, 616, 891, 891, 945, 945, 1155, 1155, 1320, 1320, 1408, 1408, 1485, 1485, 1650, 1650, 1728, 1728, 1925, 1925, 1925, 1925, 2079, 2079, 2100, 2112, 2112, 2376, 2376, 2640, 2673, 2673, 2970, 2970, 3080, 3080, 3520, 3520, 3564, 3564, 3696, 3696, 4158, 4158, 4455, 4455, 5632, 5632, 5775, 5775, 7700

Offset: 1

N. J. A. Sloane

All 77 terms of this finite sequence are shown.

J. H. Conway, R. T. Curtis, S. P. Norton, R. A. Parker and R. A. Wilson, ATLAS of Finite Groups. Oxford Univ. Press, 1985 [for best online version see https://oeis.org/wiki/Welcome#Links_to_Other_Sites].

Row n=12 of A060240.

A003876 := List(Irr(CharacterTable("S12")), chi->chi[1]);; Sort(A003876); # Eric M. Schmidt, Jul 18 2012

Magma
```
// See A003875 for Magma code.
```

h[l_] := With[{n = Length[l]}, Total[l]!/Product[Product[1 + l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i + 1, n}], {j, 1, l[[i]]}], {i, 1, n}]];
g[n_, i_, l_] := If[n == 0 || i == 1, h[Join[l, Array[1&, n]]], If[i < 1, 0, Flatten@ Table[g[n - i*j, i - 1, Join[l, Array[i&, j]]], {j, 0, n/i}]]];
T[n_] := g[n, n, {}];
Sort[T[12]] (* Jean-François Alcover, Sep 23 2024, after Alois P. Heinz in A060240 *)

A003877 Degrees of irreducible representations of symmetric group S_13.

Original entry on oeis.org

1, 1, 12, 12, 65, 65, 66, 66, 208, 208, 220, 220, 429, 429, 429, 429, 429, 429, 495, 495, 572, 572, 792, 792, 924, 936, 936, 1287, 1287, 1365, 1365, 1430, 1430, 2574, 2574, 2574, 2574, 2860, 2860, 3003, 3003, 3432, 3432, 3432, 3432, 3432, 3432, 3575, 3575, 3640, 3640, 4004, 4004, 4212, 4212, 4290, 4290, 5005, 5005, 5148, 5148, 5720, 5720, 6006, 6006, 6435, 6435, 6864, 6864, 7371, 7371, 7800, 7800, 8580, 8580, 8580, 9009, 9009, 9360, 9360, 10296, 10296, 11440, 11440, 11583, 11583, 12012, 12012, 12012, 12012, 12870, 12870, 15015, 15015, 16016, 17160, 17160, 20592, 20592, 21450, 21450

Offset: 1

N. J. A. Sloane

All 101 terms of this finite sequence are shown.

J. H. Conway, R. T. Curtis, S. P. Norton, R. A. Parker and R. A. Wilson, ATLAS of Finite Groups. Oxford Univ. Press, 1985 [for best online version see https://oeis.org/wiki/Welcome#Links_to_Other_Sites].

Cf. A003869 - A003876, A059796.

Row n=13 of A060240.

A003877 := List(Irr(CharacterTable("S13")), chi->chi[1]);; Sort(A003877); # Eric M. Schmidt, Jul 18 2012

Magma
```
// See A003875 for Magma code.
```

h[l_] := With[{n = Length[l]}, Total[l]!/Product[Product[1 + l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i + 1, n}], {j, 1, l[[i]]}], {i, 1, n}]];
g[n_, i_, l_] := If[n == 0 || i == 1, h[Join[l, Array[1&, n]]], If[i < 1, 0, Flatten@ Table[g[n - i*j, i - 1, Join[l, Array[i &, j]]], {j, 0, n/i}]]];
T[n_] := g[n, n, {}];
Sort[T[13]] (* Jean-François Alcover, Sep 23 2024, after Alois P. Heinz in A060240 *)

More terms from Emeric Deutsch, May 13 2004

A003874 Degrees of irreducible representations of symmetric group S_10.

Original entry on oeis.org

1, 1, 9, 9, 35, 35, 36, 36, 42, 42, 75, 75, 84, 84, 90, 90, 126, 126, 160, 160, 210, 210, 225, 225, 252, 252, 288, 288, 300, 300, 315, 315, 350, 350, 448, 450, 450, 525, 525, 567, 567, 768

Offset: 1

N. J. A. Sloane

All 42 terms of this finite sequence are shown.

J. H. Conway, R. T. Curtis, S. P. Norton, R. A. Parker and R. A. Wilson, ATLAS of Finite Groups. Oxford Univ. Press, 1985 [for best online version see https://oeis.org/wiki/Welcome#Links_to_Other_Sites].

Row n=10 of A060240.

A003874 := List(Irr(CharacterTable("S10")), chi->chi[1]);; Sort(A003874); # Eric M. Schmidt, Jul 18 2012

Magma
```
// See A003875 for Magma code.
```

h[l_] := With[{n = Length[l]}, Total[l]!/Product[Product[1 + l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i + 1, n}], {j, 1, l[[i]]}], {i, 1, n}]];
g[n_, i_, l_] := If[n == 0 || i == 1, h[Join[l, Array[1 &, n]]], If[i < 1, 0, Flatten@ Table[g[n - i*j, i - 1, Join[l, Array[i&, j]]], {j, 0, n/i}]]];
T[n_] := g[n, n, {}];
Sort[T[10]] (* Jean-François Alcover, Sep 23 2024, after Alois P. Heinz in A060240 *)

A059796 Degrees of irreducible representations of symmetric group S_14.

Original entry on oeis.org

1, 1, 13, 13, 77, 77, 78, 78, 273, 273, 286, 286, 429, 429, 560, 560, 637, 637, 715, 715, 1001, 1001, 1001, 1001, 1287, 1287, 1365, 1365, 1716, 1716, 2002, 2002, 2079, 2079, 4368, 4368, 4576, 4576, 4928, 4928, 5733, 5733, 6006, 6006, 6006, 6006, 6006, 6006, 6435

Offset: 1

N. J. A. Sloane, Feb 22 2001

J. H. Conway, R. T. Curtis, S. P. Norton, R. A. Parker and R. A. Wilson, ATLAS of Finite Groups. Oxford Univ. Press, 1985 [for best online version see https://oeis.org/wiki/Welcome#Links_to_Other_Sites].

Eric M. Schmidt, Table of n, a(n) for n = 1..135 (complete sequence)

Cf. A003869 - A003877.

Row n=14 of A060240.

List(Irr(CharacterTable("S14")), chi->chi[1]); # Eric M. Schmidt, Jul 18 2012

Magma
```
// See A003875 for MAGMA code.
```

h:= proc(l) local n; n:= nops(l); add(i, i=l)!/mul(mul(1+l[i]-j+
      add(`if`(l[k]>=j, 1, 0), k=i+1..n), j=1..l[i]), i=1..n) end:
g:= (n, i, l)-> `if`(n=0 or i=1, h([l[], 1$n]), `if`(i<1, 0,
                 seq(g(n-i*j, i-1, [l[], i$j]), j=0..n/i))):
sort([g(14$2, [])])[];  # Alois P. Heinz, Sep 23 2024

h[l_] := With[{n = Length[l]}, Total[l]!/Product[Product[1 + l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i + 1, n}], {j,1, l[[i]]}], {i, 1, n}]];
g[n_, i_, l_] := If[n == 0 || i == 1, h[Join[l, Array[1&, n]]], If[i < 1, 0, Flatten@ Table[g[n - i*j, i - 1, Join[l, Array[i&, j]]], {j, 0, n/i}]]];
T[n_] := g[n, n, {}];
Sort[T[14]] (* Jean-François Alcover, Sep 23 2024, after Alois P. Heinz *)

A093790 Hook products of all partitions of 11.

Original entry on oeis.org

17280, 17280, 25920, 25920, 30240, 30240, 32400, 32400, 33600, 34560, 34560, 36288, 36288, 40320, 40320, 40320, 40320, 43200, 43200, 48384, 48384, 57600, 57600, 60480, 60480, 67200, 67200, 72576, 72576, 86400, 86400, 103680, 103680, 120960, 120960, 158400, 172800, 172800, 190080, 190080, 241920, 241920, 302400, 302400, 332640, 332640, 362880, 362880, 887040, 887040, 907200, 907200, 3991680, 3991680, 39916800, 39916800

Offset: 1

Emeric Deutsch, May 17 2004

All 56 terms of this finite sequence are shown.

Cf. A003875, A060240.

Row n=11 of A093784.

H:=proc(pa) local F,j,p,Q,i,col,a,A: F:=proc(x) local i, ct: ct:=0: for i from 1 to nops(x) do if x[i]>1 then ct:=ct+1 else fi od: ct; end: for j from 1 to nops(pa) do p[1][j]:=pa[j] od: Q[1]:=[seq(p[1][j],j=1..nops(pa))]: for i from 2 to pa[1] do for j from 1 to F(Q[i-1]) do p[i][j]:=Q[i-1][j]-1 od: Q[i]:=[seq(p[i][j],j=1..F(Q[i-1]))] od: for i from 1 to pa[1] do col[i]:=[seq(Q[i][j]+nops(Q[i])-j,j=1..nops(Q[i]))] od: a:=proc(i,j) if i<=nops(Q[j]) and j<=pa[1] then Q[j][i]+nops(Q[j])-i else 1 fi end: A:=matrix(nops(pa),pa[1],a): product(product(A[m,n],n=1..pa[1]),m=1..nops(pa)); end: with(combinat): rev:=proc(a) [seq(a[nops(a)+1-i],i=1..nops(a))] end: sort([seq(H(rev(partition(11)[q])), q=1..numbpart(11))]);

h[l_] := With[{n = Length[l]}, Total[l]!/Product[Product[1 + l[[i]] - j + Sum[If[l[[k]] >= j, 1, 0], {k, i + 1, n}], {j, 1, l[[i]]}], {i, 1, n}]];
g[n_, i_, l_] := If[n == 0 || i == 1, h[Join[l, Array[1&, n]]], If[i < 1, 0, Flatten@Table[g[n - i*j, i-1, Join[l, Array[i&, j]]], {j, 0, n/i}]]];
T[n_] := g[n, n, {}];
Sort[11!/T[11]] (* Jean-François Alcover, Sep 05 2024, after Alois P. Heinz in A060240 *)

a(n) = 11!/A003875(57-n).

cp's OEIS Frontend

A003040 Highest degree of an irreducible representation of symmetric group S_n of degree n.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

Sage

Extensions

A003869 Degrees of irreducible representations of symmetric group S_5.

Views

Author

Keywords

Comments

References

Crossrefs

Programs

GAP

Magma

Mathematica

A003876 Degrees of irreducible representations of symmetric group S_12.

Views

Author

Keywords

Comments

References

Crossrefs

Programs

GAP

Magma

Mathematica

A003877 Degrees of irreducible representations of symmetric group S_13.

Views

Author

Keywords

Comments

References

Crossrefs

Programs

GAP

Magma

Mathematica

Extensions

A003874 Degrees of irreducible representations of symmetric group S_10.

Views

Author

Keywords

Comments

References

Crossrefs

Programs

GAP

Magma

Mathematica

A059796 Degrees of irreducible representations of symmetric group S_14.

Views

Author

Keywords

References

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

A093790 Hook products of all partitions of 11.

Views

Author

Keywords

Comments

Crossrefs

Programs

Maple

Mathematica