A180536 Primes that become a different prime under the mapping 2 <=> 6.

127, 167, 241, 277, 283, 421, 461, 523, 563, 641, 677, 683, 823, 863, 1021, 1061, 1123, 1163, 1201, 1213, 1223, 1229, 1237, 1297, 1321, 1327, 1361, 1367, 1601, 1613, 1637, 1663, 1669, 1697, 2011, 2027, 2053, 2069, 2089, 2113, 2131, 2143, 2161, 2207, 2221

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A006285 A094933 A156702 * A342801 A137985 A065092

Adjacent sequences: A180533 A180534 A180535 * A180537 A180538 A180539

Keyword

base,nonn

Author

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

Status

approved