OFFSET
0,7
EXAMPLE
a(8) counts these 4 partitions : 8, 3311, 22211, 221111.
MATHEMATICA
z = 61; d[p_] := d[p] = Length[DeleteDuplicates[p]]; m[p_] := Min[Map[Length, Split[p]]]; Table[Count[IntegerPartitions[n], p_ /; d[p] == m[p]], {n, 0, z}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 30 2014
STATUS
approved