A180529 Primes that become a different prime under the mapping 1 <=> 6.

17, 67, 107, 163, 167, 173, 317, 367, 607, 613, 617, 673, 719, 769, 1153, 1213, 1229, 1277, 1367, 1373, 1427, 1553, 1613, 1663, 1697, 1699, 1709, 1733, 1823, 1907, 1949, 1997, 2113, 2417, 2467, 2663, 3137, 3163, 3167, 3413, 3463, 3613, 3617, 3637, 3719

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A024215 A095071 A095072 * A214032 A039452 A171748

Adjacent sequences: A180526 A180527 A180528 * A180530 A180531 A180532

Keyword

base,nonn

Author

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

Status

approved