A033041 Numbers all of whose base 16 digits are odd.
1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 49, 51, 53, 55, 57, 59, 61, 63, 81, 83, 85, 87, 89, 91, 93, 95, 113, 115, 117, 119, 121, 123, 125, 127, 145, 147, 149, 151, 153, 155, 157, 159, 177, 179, 181, 183, 185, 187, 189
Offset: 1
Programs
-
Mathematica
Select[Range[200],And@@OddQ[IntegerDigits[#,16]]&] (* Harvey P. Dale, Dec 13 2011 *)