OFFSET
1,3
COMMENTS
All 56 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].
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, {}];
PROG
(Magma) t1 := CharacterTable(SymmetricGroup(11)); [Degree(t1[i]) : i in [1 .. #t1]];
(GAP) A003875 := List(Irr(CharacterTable("S11")), chi->chi[1]);; Sort(A003875); # Eric M. Schmidt, Jul 18 2012
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
STATUS
approved