OFFSET
1,4
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..200
EXAMPLE
Following the example in A225485, the frequency depths for the partitions of 8 are 1,2,3,4,5, and these occur 1,3,6,9,3 times, respectively. The greatest of these is 9, so that a(8) = 9.
MATHEMATICA
c[s_] := c[s] = Select[Table[Count[s, i], {i, 1, Max[s]}], # > 0 &];
f[s_] := f[s] = Drop[FixedPointList[c, s], -2];
t[s_] := t[s] = Length[f[s]];
u[n_] := u[n] = Table[t[Part[IntegerPartitions[n], i]], {i, 1, Length[IntegerPartitions[n]]}];
v = Table[Count[u[n], k], {n, 2, 12}, {k, 1, Max[u[n]]}]
Map[Max, v]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Sep 14 2023
EXTENSIONS
a(36)-a(49) from Alois P. Heinz, Sep 15 2023
STATUS
approved