OFFSET
1,2
EXAMPLE
a(6) counts these partitions:
6 (as (6+6)/2 = 6 is included),
33 (as (3+3)/2 = 3 is included),
321 (as (3+1)/2 = 2 is included),
222 (as (2+2)/2 = 2 is included),
111111 (as (1+1)/2 = 1 is included).
Thus a(6) = 5.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, (Min[p] + Max[p])/2]], {n, 40}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 27 2014
STATUS
approved