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,1

Links

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

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

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]

Crossrefs

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

Sequence in context: A059497 A059472 A165455 * A079593 A086082 A126665

Adjacent sequences: A180550 A180551 A180552 * A180554 A180555 A180556

Keyword

base,nonn

Author

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

Status

approved