login
A180523
Primes that become a different prime under the mapping 0 <=> 8.
1
83, 101, 181, 809, 811, 823, 829, 853, 859, 883, 887, 1009, 1031, 1061, 1301, 1381, 1409, 1489, 1709, 1789, 1831, 1861, 1889, 1907, 1987, 2081, 2083, 2207, 2287, 2309, 2389, 2609, 2689, 2801, 2803, 3001, 3023, 3083, 3803, 3823, 3881, 4013, 4703, 4783
OFFSET
1,1
LINKS
Index to Primes, Primes that become a different prime under some mapping.
MATHEMATICA
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 0] || MemberQ[id, 8]) && PrimeQ[ FromDigits[ id /. {0 -> 8, 8 -> 0}] ]]; Select[ Prime@ Range@ 700, fQ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
STATUS
approved