login
A180535
Primes that become a different prime under the mapping 2 <=> 5.
1
2, 5, 23, 29, 53, 59, 127, 157, 227, 241, 251, 263, 269, 271, 277, 293, 521, 541, 557, 563, 569, 571, 577, 593, 727, 757, 823, 827, 829, 853, 857, 859, 1021, 1051, 1123, 1153, 1223, 1229, 1231, 1249, 1279, 1283, 1297, 1423, 1429, 1453, 1459, 1531, 1549
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, 2] || MemberQ[id, 5]) && PrimeQ[ FromDigits[ id /. {2 -> 5, 5 -> 2}] ]]; Select[ Prime@ Range@ 250, fQ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
STATUS
approved