OFFSET
1,2
EXAMPLE
a(6) counts all the 11 partitions of 6 except 42, 411.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; !MemberQ[p, Max[p] - Length[p]]], {n, 50}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 28 2014
STATUS
approved