OFFSET
0,5
EXAMPLE
a(8) counts these 6 partitions: 611, 44, 422, 3311, 32111, 2222.
MATHEMATICA
z = 54; d[p_] := d[p] = Length[DeleteDuplicates[p]]; Table[Count[IntegerPartitions[n], p_ /; d[p] == Count[p, Min[p]]], {n, 0, z}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 30 2014
STATUS
approved