OFFSET
0,6
EXAMPLE
a(6) counts these 3 partitions: 6, 42, 2211.
MATHEMATICA
z = 30; f[n_] := f[n] = IntegerPartitions[n]; e[p_] := Length[DeleteDuplicates[Select[p, Count[p, #] > 1 &]]]; Table[Count[f[n], p_ /; e[p] == Count[p, 1]], {n, 0, z}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 24 2014
STATUS
approved