A003877 - OEIS

A003877

Degrees of irreducible representations of symmetric group S_13.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

COMMENTS

All 101 terms of this finite sequence are shown.

REFERENCES

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

LINKS

Table of n, a(n) for n=1..101.

MATHEMATICA

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 *)

PROG

(Magma) // See A003875 for Magma code.

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

CROSSREFS

Cf. A003869 - A003876, A059796.

Row n=13 of A060240.

Sequence in context: A119877 A307842 A147833 * A161196 A328531 A111306

Adjacent sequences: A003874 A003875 A003876 * A003878 A003879 A003880

KEYWORD

nonn,fini,full

AUTHOR

N. J. A. Sloane

EXTENSIONS

More terms from Emeric Deutsch, May 13 2004

STATUS

approved