OFFSET
0,5
EXAMPLE
a(10) counts these 21 partitions: 82, 811, 721, 631, 6211, 61111, 541, 5221, 52111, 4321, 43111, 4222, 421111, 4111111, 3322, 33211, 32221, 322111, 3211111, 22111111, 211111111.
MATHEMATICA
z = 62; f[n_] := f[n] = IntegerPartitions[n];
Table[Count[f[n], p_ /; MemberQ[p, Count[Mod[p, 2], 0]]], {n, 0, z}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 10 2014
STATUS
approved