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

Author

Zak Seidov, Sep 06 2010

Keywords

• base
• nonn

Examples

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

Links

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

Crossrefs

Cf. A171013, A171057, A175789.

Programs

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 *)

PARI

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