OFFSET
1,2
EXAMPLE
a(10) counts all the 42 partitions of 10 except these: 82, 7111, 631.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; ! MemberQ[p, Length[p] + 3*Min[p]]], {n, 50}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 28 2014
STATUS
approved