OFFSET
1,3
EXAMPLE
a(8) counts these 5 partitions: 431, 3311, 3221, 32111, 311111.
MATHEMATICA
Table[p = IntegerPartitions[n]; Length[Select[Table[Total[Select[DeleteDuplicates[p[[k]]], OddQ]], {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