A234037 The union of odious numbers with evil squares and evil numbers with odious squares.

5, 9, 10, 13, 17, 18, 20, 21, 23, 26, 29, 33, 34, 36, 37, 39, 40, 42, 43, 46, 47, 51, 52, 58, 61, 65, 66, 68, 69, 71, 72, 73, 74, 75, 77, 78, 80, 81, 84, 85, 86, 89, 92, 93, 94, 95, 101, 102, 104, 107, 109, 113, 115, 116, 122, 125, 129, 130, 132, 133, 135, 136, 137

Offset: 1

Author

Gerasimov Sergey, Jan 13 2014

Keywords

• nonn
• base

Comments

Numbers n with odd sum of binary weight of n and binary weight of n^2.

Primes are in this sequence: 5, 13, 17, 23, 29, 37, 43, 47, 61, 71, 73,....

Evil numbers with odious squares: 5, 9, 10, 17, 18, 20, 23, 29, 33, 34,...

Odious numbers with evil squares: 13, 21, 26, 37, 42, 47, 52, 61, 69,...

Examples

			a(3) = 10 because 2 (binary weight of 10) + 3 (binary weight of 100) = 5 (odd).
a(4) = 13 because 3 (binary weight of 13) + 4 (binary weight of 169) = 7 (odd).
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000069, A000120, A001969, A159918, A231431, A235001.

Programs

Mathematica

Select[Range[100], Mod[DigitCount[#, 2, 1], 2] != Mod[DigitCount[#^2, 2, 1], 2] &] (* Amiram Eldar, Aug 31 2020 *)

Extensions

Wrong term removed by Amiram Eldar, Aug 31 2020