A295298 Numbers n for which sum of the divisors (A000203) and the binary weight of n (A000120) have the same parity.
1, 2, 3, 4, 5, 6, 8, 10, 12, 15, 16, 17, 20, 23, 24, 25, 27, 29, 30, 32, 33, 34, 39, 40, 43, 45, 46, 48, 49, 50, 51, 53, 54, 57, 58, 60, 63, 64, 65, 66, 68, 71, 75, 77, 78, 80, 81, 83, 85, 86, 89, 90, 92, 95, 96, 98, 99, 100, 101, 102, 105, 106, 108, 111, 113, 114, 116, 119, 120, 121, 123, 125, 126, 128, 129, 130, 132, 135, 136
Offset: 1
Keywords
Links
Crossrefs
Programs
-
Mathematica
Select[Range@ 136, SameQ @@ Map[EvenQ, {DivisorSigma[1, #], DigitCount[#, 2, 1]}] &] (* Michael De Vlieger, Nov 26 2017 *)
Comments