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