OFFSET
1,2
EXAMPLE
a(4) counts these 4 partitions: 4, 31, 211, 1111.
MATHEMATICA
Table[p = IntegerPartitions[n];
Length[Select[Table[Total[Select[DeleteDuplicates[p[[k]]], OddQ]], {k, Length[p]}], # <= n/2 &]], {n, 55}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 30 2017
STATUS
approved