|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
|