A175791 Primes that become another prime under the map 1 <-> 0 (acting on the digits: A222210), cf. A171013.

13, 17, 103, 107, 109, 113, 137, 167, 173, 179, 197, 307, 317, 409, 419, 607, 617, 709, 719, 1013, 1019, 1039, 1049, 1063, 1093, 1097, 1103, 1109, 1117, 1123, 1129, 1153, 1223, 1229, 1277, 1283, 1303, 1307, 1367, 1373, 1409, 1433, 1439, 1487, 1499, 1523

Offset

1,1

Links

Zak Seidov, Table of n, a(n) for n = 1..20000

Example

13 => 3, 17 => 7, 107 => 17, 113 => 3.

Mathematica

Reap[Do[p=Prime[n]; id=IntegerDigits[p]; id2=id/.{1->0, 0->1}; If[PrimeQ[fd=FromDigits[id2]]&&fd != p, Sow[p]], {n, 2000}]][[2, 1]];
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 0] || MemberQ[id, 1]) && PrimeQ[ FromDigits[id /. {0 -> 1, 1 -> 0}]]]; Select[ Prime@ Range@ 250, fQ] (* Robert G. Wilson v, Sep 06 2010 *)

Prog

(PARI) {my(q); forprime(p=1, 599, p!=(q=A222210(p)) && isprime(q) && isprime(p) && print1(p, ", "))} \\ M. F. Hasler, Feb 13 2013

Crossrefs

Cf. A171013, A171057, A175789.

Sequence in context: A060569 A108265 A069853 * A356791 A289866 A210547

Adjacent sequences: A175788 A175789 A175790 * A175792 A175793 A175794

Keyword

base,nonn

Author

Zak Seidov, Sep 06 2010

Status

approved