login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A175791 Primes that become another prime under the map 1 <-> 0 (acting on the digits: A222210), cf. A171013. 47
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..46.

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(", "))} \\ M. F. Hasler, Feb 13 2013

CROSSREFS

Cf. A171013, A171057, A175789.

Sequence in context: A060569 A108265 A069853 * A289866 A210547 A202136

Adjacent sequences:  A175788 A175789 A175790 * A175792 A175793 A175794

KEYWORD

base,nonn

AUTHOR

Zak Seidov, Sep 06 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 16 20:23 EDT 2019. Contains 328103 sequences. (Running on oeis4.)