OFFSET
1,3
COMMENTS
All 7 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) // See A003875 for Magma code
(GAP) A003869 := List(Irr(CharacterTable("S5")), chi->chi[1]);; Sort(A003869); # Eric M. Schmidt, Jul 18 2012
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
STATUS
approved