OFFSET
1,7
COMMENTS
EXAMPLE
a(7) counts these 2 partitions: [5,2], [3,2,2]
MATHEMATICA
Table[Count[IntegerPartitions[n], q_ /; OddQ[Max[q]] && EvenQ[Min[q]]], {n, 30}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 23 2019
STATUS
approved