OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..200
EXAMPLE
Of the 15 partitions of 7, only [1,2,4] does not qualify, so that a(7) = 14.
MATHEMATICA
Map[Length[Select[Map[Max[Map[Last, Tally[#]]]/Length[#] &, IntegerPartitions[#]], # >= 1/2 &]] &, Range[50]] (* Peter J. C. Moses, Feb 05 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 05 2014
STATUS
approved