A003869 Degrees of irreducible representations of symmetric group S_5.
1, 1, 4, 4, 5, 5, 6
Offset: 1
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].
Programs
-
GAP
A003869 := List(Irr(CharacterTable("S5")), chi->chi[1]);; Sort(A003869); # Eric M. Schmidt, Jul 18 2012
-
Magma
// See A003875 for Magma code
-
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[5]] (* Jean-François Alcover, Sep 22 2024, after Alois P. Heinz in A060240 *)
Comments