OFFSET
0,6
EXAMPLE
a(6) counts these 3 partitions: 321, 2211, 1111; e.g., the number of distinct parts of 2211 is 2, which has multiplicity 2, which is a part of 2211.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, Count[p, Length[DeleteDuplicates[p]]]]], {n, 0, 40}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 07 2014
STATUS
approved