login
A180520
Primes that become a different prime under the mapping 0 <=> 5.
1
53, 101, 107, 151, 157, 503, 509, 523, 541, 547, 557, 571, 701, 751, 809, 859, 1009, 1031, 1049, 1097, 1103, 1153, 1409, 1459, 1531, 1549, 1559, 1597, 1607, 1657, 1709, 1759, 1901, 1951, 2039, 2053, 2503, 2539, 2609, 2659, 2801, 2851, 2903, 2953, 3011
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, 5]) && PrimeQ[ FromDigits[ id /. {0 -> 5, 5 -> 0}] ]]; Select[ Prime@ Range@ 500, fQ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
STATUS
approved