A295299 Numbers k such that the sum of the divisors (A000203) and the binary weight of k (A000120) have different parity.
7, 9, 11, 13, 14, 18, 19, 21, 22, 26, 28, 31, 35, 36, 37, 38, 41, 42, 44, 47, 52, 55, 56, 59, 61, 62, 67, 69, 70, 72, 73, 74, 76, 79, 82, 84, 87, 88, 91, 93, 94, 97, 103, 104, 107, 109, 110, 112, 115, 117, 118, 122, 124, 127, 131, 133, 134, 137, 138, 140, 143, 144, 145, 146, 148, 151, 152, 155, 157, 158, 161, 164, 167, 168, 169
Offset: 1
Keywords
Links
Crossrefs
Programs
-
Mathematica
Select[Range@ 169, UnsameQ @@ Map[EvenQ, {DivisorSigma[1, #], DigitCount[#, 2, 1]}] &] (* Michael De Vlieger, Nov 26 2017 *)
Comments