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