0,1

Table of n, a(n) for n=0..58.

88 = 2 * 2 * 2 * 11 -> sum = 17 so 88 is even while 17 is odd.

Select[2*Range[100], OddQ[Total[Flatten[Table[#[[1]], {#[[2]]}]&/@ FactorInteger[#]]]]&] (* Harvey P. Dale, Sep 22 2014 *)

Cf. A046337, A036347.

Sequence in context: A036350 A295076 A088829 * A100368 A128691 A028919

Adjacent sequences: A036345 A036346 A036347 * A036349 A036350 A036351

nonn,base

Patrick De Geest, Dec 15 1998

approved