A254614 Union of odd odious (A092246) and evil (A001969) numbers.
0, 1, 3, 5, 6, 7, 9, 10, 11, 12, 13, 15, 17, 18, 19, 20, 21, 23, 24, 25, 27, 29, 30, 31, 33, 34, 35, 36, 37, 39, 40, 41, 43, 45, 46, 47, 48, 49, 51, 53, 54, 55, 57, 58, 59, 60, 61, 63, 65, 66, 67, 68, 69, 71, 72, 73, 75, 77, 78, 79, 80, 81, 83, 85, 86, 87, 89
Offset: 1
Examples
A128309 begins 2,4,8, hence this sequence begins 0,1,3,5,6,7.
Programs
-
Mathematica
Select[Range[0, 100], OddQ[#] || !OddQ[DigitCount[#, 2, 1]] &] (* Amiram Eldar, Aug 07 2023 *)
Comments