OFFSET
1,5
FORMULA
a(5) counts these 3 partitions: 5, 32, 311.
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, Apr 02 2017
STATUS
approved