|
|
A180524
|
|
Primes that become a different prime under the mapping 0 <=> 9.
|
|
1
|
|
|
97, 101, 103, 107, 191, 193, 197, 307, 397, 401, 491, 503, 593, 601, 691, 907, 911, 937, 941, 947, 953, 967, 971, 983, 997, 1013, 1031, 1033, 1051, 1087, 1091, 1097, 1103, 1193, 1201, 1291, 1607, 1697, 1901, 1907, 1913, 1931, 1933, 1951, 1987, 2017, 2027
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 0] || MemberQ[id, 9]) && PrimeQ[ FromDigits[ id /. {0 -> 9, 9 -> 0}] ]]; Select[ Prime@ Range@ 700, fQ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|