OFFSET
1,8
COMMENTS
Bounded above by A000700(n). - Eric M. Schmidt, Apr 29 2013
EXAMPLE
a(6) = 1 because the degrees for S_6 are 1,1,5,5,5,5,9,9,10,10,16 and the only number that appears once is 16.
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, Count[Tally[g[n, n, {}]], {_, 1}] ];
Table[Print[n, " ", a[n]]; a[n], {n, 1, 50}] (* Jean-François Alcover, Sep 23 2024, after Alois P. Heinz in A060240 *)
PROG
(Sage)
def A060426(n) :
mult = {}
for P in Partitions(n) :
dim = P.dimension()
mult[dim] = mult.get(dim, 0) + 1
return len([m for m in iter(mult) if mult[m]==1])
# Eric M. Schmidt, Apr 29 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Avi Peretz (njk(AT)netvision.net.il), Apr 05 2001
EXTENSIONS
More terms from Eric M. Schmidt, Apr 29 2013
STATUS
approved