A180519 - OEIS

A180519

Primes that become a different prime under the mapping 0 <=> 4.

43, 47, 109, 149, 307, 347, 401, 419, 431, 443, 461, 467, 479, 601, 607, 641, 647, 907, 947, 1033, 1039, 1049, 1051, 1087, 1093, 1409, 1433, 1439, 1451, 1487, 1493, 2011, 2017, 2203, 2243, 2411, 2417, 2503, 2543, 2803, 2843, 3061, 3067, 3307, 3347, 3461

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

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

MATHEMATICA

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

CROSSREFS

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

Sequence in context: A334094 A033230 A330981 * A118485 A165444 A162464

Adjacent sequences: A180516 A180517 A180518 * A180520 A180521 A180522

KEYWORD

base,nonn

AUTHOR

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

STATUS

approved