OFFSET
0,6
EXAMPLE
a(10) counts these 4 partitions: 622, 4411, 43111, 421111.
MATHEMATICA
z = 58; d[p_] := d[p] = Length[DeleteDuplicates[p]]; Table[Count[IntegerPartitions[n], p_ /; d[p] == Count[p, 1] - Count[p, 2]], {n, 0, z}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 31 2014
STATUS
approved