A180539 Primes that become a different prime under the mapping 2 <=> 9.

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

Robert Price, Table of n, a(n) for n = 1..2084

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

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

Sequence in context: A127579 A107380 A282793 * A195377 A142090 A095730

Adjacent sequences: A180536 A180537 A180538 * A180540 A180541 A180542

Keyword

base,nonn

Author

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

Status

approved