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].
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) A003877 := List(Irr(CharacterTable("S13")), chi->chi[1]);; Sort(A003877); # Eric M. Schmidt, Jul 18 2012
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
EXTENSIONS
More terms from Emeric Deutsch, May 13 2004
STATUS
approved