|
|
A180559
|
|
Primes that become a different prime under the mapping 7 <=> 9.
|
|
46
|
|
|
17, 19, 79, 97, 107, 109, 137, 139, 173, 179, 193, 197, 227, 229, 347, 349, 379, 397, 577, 599, 617, 619, 709, 727, 739, 769, 827, 829, 857, 859, 907, 929, 937, 967, 1279, 1297, 1427, 1429, 1487, 1489, 1579, 1597, 1607, 1609, 1667, 1669, 1709, 1733, 1747
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 7] || MemberQ[id, 9]) && PrimeQ[ FromDigits[ id /. {7 -> 9, 9 -> 7}] ]]; Select[ Prime@ Range@ 275, fQ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|