A003873 Degrees of irreducible representations of symmetric group S_9.

1, 1, 8, 8, 27, 27, 28, 28, 42, 42, 42, 48, 48, 56, 56, 70, 84, 84, 105, 105, 120, 120, 162, 162, 168, 168, 189, 189, 216, 216

Offset

1,3

Comments

All 30 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..30.

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[9]] (* Jean-François Alcover, Sep 22 2024, after Alois P. Heinz in A060240 *)

Prog

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

Crossrefs

Row n=9 of A060240.

Sequence in context: A246310 A318542 A319089 * A077110 A333625 A098360

Adjacent sequences: A003870 A003871 A003872 * A003874 A003875 A003876

Keyword

nonn,fini,full

Author

N. J. A. Sloane

Status

approved