A180524 Primes that become a different prime under the mapping 0 <=> 9.

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

Offset: 1

Author

Zak Seidov and Robert G. Wilson v, Sep 09 2010

Keywords

• base
• nonn

Links

• Robert Price, Table of n, a(n) for n = 1..2874
• Index to Primes, Primes that become a different prime under some mapping.

Crossrefs

Cf. A171049, A175791, A180517 thru A180559, A175789, A180560, A180561.

Programs

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]