A180544 Primes that become a different prime under the mapping 3 <=> 8.

131, 181, 311, 331, 337, 359, 389, 811, 839, 859, 881, 887, 1301, 1361, 1367, 1381, 1439, 1489, 1801, 1831, 1861, 1867, 2039, 2089, 2237, 2287, 2351, 2357, 2851, 2857, 3011, 3037, 3089, 3167, 3191, 3209, 3221, 3307, 3319, 3361, 3389, 3461, 3467, 3527

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A335271 A140623 A050261 * A032750 A270596 A085414

Adjacent sequences: A180541 A180542 A180543 * A180545 A180546 A180547

Keyword

base,nonn

Author

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

Status

approved