OFFSET
1,3
EXAMPLE
a(6) counts these 7 partitions: 6, 41, 411, 222, 2211, 21111, 111111.
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