[go: up one dir, main page]

login
A180539
Primes that become a different prime under the mapping 2 <=> 9.
1
127, 197, 211, 227, 241, 271, 277, 283, 421, 491, 523, 593, 727, 797, 911, 941, 971, 977, 983, 997, 1021, 1091, 1123, 1193, 1201, 1213, 1223, 1231, 1423, 1493, 1627, 1697, 1901, 1913, 1931, 1993, 2011, 2137, 2161, 2207, 2267, 2273, 2293, 2311, 2341
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, 2] || MemberQ[id, 9]) && PrimeQ[ FromDigits[ id /. {2 -> 9, 9 -> 2}] ]]; Select[ Prime@ Range@ 350, fQ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
STATUS
approved