A180545 Primes that become a different prime under the mapping 3 <=> 9.

13, 19, 23, 29, 37, 53, 59, 73, 79, 83, 89, 97, 103, 109, 131, 137, 139, 173, 179, 191, 193, 197, 223, 229, 239, 263, 269, 293, 307, 311, 313, 331, 337, 347, 359, 367, 389, 397, 431, 433, 443, 449, 491, 499, 503, 509, 563, 569, 613, 619, 631, 653, 659, 691

Offset

1,1

Links

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

Index to Primes, Primes that become a different prime under some mapping.

Mathematica

fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 3] || MemberQ[id, 9]) && PrimeQ[ FromDigits[ id /. {3 -> 9, 9 -> 3}] ]]; Select[ Prime@ Range@ 130, fQ]

Crossrefs

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

Sequence in context: A160951 A038888 A191020 * A113017 A007627 A180525

Adjacent sequences: A180542 A180543 A180544 * A180546 A180547 A180548

Keyword

base,nonn

Author

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

Status

approved