OFFSET
1,4
EXAMPLE
a(8) = 3 counts these partitions: 62, 521, 422.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, 2*Length[p] - Min[p]]], {n, 50}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 01 2014
STATUS
approved