login
A180521
Primes that become a different prime under the mapping 0 <=> 6.
1
67, 103, 107, 163, 167, 307, 367, 401, 461, 503, 509, 563, 569, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659, 673, 683, 701, 709, 761, 769, 907, 967, 1009, 1013, 1019, 1021, 1061, 1069, 1093, 1097, 1103, 1163, 1301, 1307, 1361, 1367, 1601, 1609, 1613
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, 6]) && PrimeQ[ FromDigits[ id /. {0 -> 6, 6 -> 0}] ]]; Select[ Prime@ Range@ 300, fQ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
STATUS
approved