OFFSET
1,2
EXAMPLE
a(6) = 4 because the degrees for S_6 are 1,1,5,5,5,5,9,9,10,10,16 and the number 5 appears 4 times.
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}]]];
a[n_] := a[n] = If[n == 1, 1, MaximalBy[Tally[g[n, n, {}]], Last][[1, 2]]];
Table[Print[n, " ", a[n]];
PROG
(Sage)
def A060369(n) :
mult = {}
for P in Partitions(n):
dim = P.dimension()
mult[dim] = mult.get(dim, 0) + 1
return max(mult.values())
# Eric M. Schmidt, May 01 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Avi Peretz (njk(AT)netvision.net.il), Apr 01 2001
EXTENSIONS
More terms from Eric M. Schmidt, May 01 2013
STATUS
approved