OFFSET
1,5
EXAMPLE
a(6) = 4 counts these partitions: 42, 321, 2211, 21111.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, Max[p] - Min[p]]], {n, 50}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 27 2014
STATUS
approved