A180531 Primes that become a different prime under the mapping 1 <=> 8.

13, 19, 83, 89, 109, 113, 127, 139, 157, 163, 313, 383, 613, 683, 809, 827, 839, 857, 863, 883, 1009, 1019, 1039, 1069, 1087, 1093, 1103, 1117, 1163, 1193, 1217, 1237, 1289, 1297, 1319, 1423, 1429, 1447, 1489, 1543, 1583, 1597, 1609, 1619, 1627, 1663

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A174343 A158332 A241486 * A271926 A090258 A241246

Adjacent sequences: A180528 A180529 A180530 * A180532 A180533 A180534

Keyword

base,nonn

Author

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

Status

approved