OFFSET
1,2
EXAMPLE
a(6) counts these partitions: 6, 33, 221, 222, 2211, 21111, 111111.
MATHEMATICA
Table[Count[IntegerPartitions[n], p_ /; MemberQ[p, Floor[(Min[p] + Max[p])/2]]], {n, 50}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 27 2014
STATUS
approved