A180525 Primes that become a different prime under the mapping 1 <=> 2.

13, 19, 23, 29, 113, 139, 157, 163, 193, 223, 239, 257, 263, 293, 919, 929, 1019, 1039, 1063, 1069, 1087, 1103, 1123, 1187, 1193, 1223, 1237, 1279, 1399, 1427, 1447, 1459, 1543, 1549, 1579, 1609, 1627, 1657, 1663, 1693, 1699, 1723, 1753, 1777, 1789, 1879

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A180545 A113017 A007627 * A257590 A121877 A109902

Adjacent sequences: A180522 A180523 A180524 * A180526 A180527 A180528

Keyword

base,nonn

Author

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

Status

approved