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