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