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