OFFSET
1,7
EXAMPLE
a(8) counts these partitions: 521, 431, 4211, 41111.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, Max[p] - 3*Min[p]]], {n, 50}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 02 2014
STATUS
approved