OFFSET
1,4
EXAMPLE
a(5) counts these 3 partitions: 32, 221, 2111.
MATHEMATICA
Table[p = IntegerPartitions[n];
Length[Select[Table[Total[Select[DeleteDuplicates[p[[k]]], EvenQ]], {k, Length[p]}], # == Floor[n/2] &]], {n, 60}](* Peter J. C. Moses, Mar 29 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 30 2017
STATUS
approved