login
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
OFFSET
1,1
LINKS
Index to Primes, Primes that become a different prime under some mapping.
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