A075238 Primes whose base 8 reversal is also prime.
2, 3, 5, 7, 13, 29, 31, 41, 43, 47, 59, 61, 67, 71, 73, 79, 89, 97, 101, 107, 113, 193, 211, 227, 233, 239, 251, 349, 353, 373, 383, 449, 457, 463, 479, 487, 491, 503, 509, 521, 523, 541, 577, 587, 643, 677, 683, 719, 733, 751, 757, 773, 787, 811, 823, 827, 829
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
Programs
-
Mathematica
Prime[ Select[ Range[150], PrimeQ[ FromDigits[ Reverse[ IntegerDigits[ Prime[ # ], 8]], 8]] &]] Select[Prime[Range[200]],PrimeQ[IntegerReverse[#,8]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 09 2017 *)