A124404 Nonpalindromes in base 10 that are non-palindromes in base 2.
10, 12, 13, 14, 16, 18, 19, 20, 23, 24, 25, 26, 28, 29, 30, 32, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 46, 47, 48, 49, 50, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 64, 67, 68, 69, 70, 71, 72, 74, 75, 76, 78, 79, 80, 81, 82, 83, 84, 86, 87, 89, 90, 91, 92, 94, 95, 96, 97, 98
Offset: 1
Crossrefs
Cf. A007632 = numbers that are palindromic in bases 2 and 10.
Programs
-
Mathematica
Select[Range[100], Reverse[IntegerDigits[ # ]] != IntegerDigits[ # ] && Reverse[IntegerDigits[ #, 2]] != IntegerDigits[ #, 2] &]