OFFSET
1,5
EXAMPLE
a(8) counts these 3 partitions: 44, 431, 4111.
MATHEMATICA
Table[p = IntegerPartitions[n];
Length[Select[Table[Total[Select[p[[k]], EvenQ]], {k, Length[p]}], # ==
Floor[n/2] &]], {n, 60}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 30 2017
STATUS
approved