A180553 Primes that become a different prime under the mapping 5 <=> 8.

53, 59, 83, 89, 151, 181, 251, 281, 353, 359, 383, 389, 457, 487, 509, 521, 523, 557, 563, 577, 587, 653, 683, 757, 787, 809, 821, 823, 857, 863, 877, 887, 953, 983, 1151, 1181, 1259, 1289, 1451, 1453, 1459, 1481, 1483, 1489, 1511, 1523, 1531, 1559, 1567

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..3698
• Index to Primes, Primes that become a different prime under some mapping.

Crossrefs

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

Programs

Mathematica

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