A136186 Primes whose decimal and binary reversal are both prime.
3, 5, 7, 11, 13, 17, 31, 37, 71, 73, 97, 101, 107, 113, 131, 151, 167, 181, 199, 313, 337, 353, 359, 373, 383, 701, 709, 727, 739, 757, 797, 907, 937, 941, 953, 967, 1033, 1091, 1109, 1153, 1181, 1193, 1201, 1217, 1229, 1259, 1439, 1453, 1471, 1487, 1619, 1669
Offset: 1
Examples
337 = 101010001 base 2, reverse the sequence of ones and zeros: 100010101 base 2 = 277. 337, 733 and 277 are all prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[300]],AllTrue[{IntegerReverse[#],FromDigits[ Reverse[ IntegerDigits[ #,2]],2]},PrimeQ]&] (* Harvey P. Dale, Nov 11 2021 *)