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

53, 101, 107, 151, 157, 503, 509, 523, 541, 547, 557, 571, 701, 751, 809, 859, 1009, 1031, 1049, 1097, 1103, 1153, 1409, 1459, 1531, 1549, 1559, 1597, 1607, 1657, 1709, 1759, 1901, 1951, 2039, 2053, 2503, 2539, 2609, 2659, 2801, 2851, 2903, 2953, 3011

Offset: 1

Author

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

Keywords

• base
• nonn

Links

• Robert Price, Table of n, a(n) for n = 1..2172
• Index to Primes, Primes that become a different prime under some mapping.

Crossrefs

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

Programs

Mathematica

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