|
| |
|
|
A180554
|
|
Primes that become a different prime under the mapping 5 <=> 9.
|
|
1
|
|
|
|
151, 157, 191, 197, 541, 547, 557, 571, 577, 593, 757, 797, 941, 947, 953, 971, 977, 997, 1051, 1091, 1153, 1193, 1453, 1493, 1531, 1553, 1657, 1697, 1931, 1993, 2503, 2593, 2857, 2897, 2903, 2953, 3511, 3517, 3547, 3911, 3917, 3947, 4051, 4091, 4357
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 5] || MemberQ[id, 9]) && PrimeQ[ FromDigits[ id /. {5 -> 9, 9 -> 5}] ]]; Select[ Prime@ Range@ 600, fQ]
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
