OFFSET
0,6
EXAMPLE
The partitions of 5 are [5], [4,1], [3,2], [3,1,1], [2,2,1], [2,1,1,1], [1,1,1,1,1], with respective condensations [5], [4,1], [3,2], [3,2], [4,1], [3,2], [5]; of these, three occur more than once, so that a(5) = 3.
MATHEMATICA
p[n_] := IntegerPartitions[n];
m[n_] := Map[Split, p[n]];
t[n_, k_] := Map[Total, m[n][[k]]];
u[n_] := Table[Sort[t[n, k], Greater], {k, 1, Length[p[n]]}]
v[n_] := Tally[u[n]];
w[n_] := Length[Select[v[n], #[[2]] > 1 &] ]; l
Table[w[n], {n, 1, 20}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 30 2019
EXTENSIONS
More terms from Alois P. Heinz, Jun 30 2019
STATUS
approved