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

83, 101, 181, 809, 811, 823, 829, 853, 859, 883, 887, 1009, 1031, 1061, 1301, 1381, 1409, 1489, 1709, 1789, 1831, 1861, 1889, 1907, 1987, 2081, 2083, 2207, 2287, 2309, 2389, 2609, 2689, 2801, 2803, 3001, 3023, 3083, 3803, 3823, 3881, 4013, 4703, 4783

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A115258 A316970 A139965 * A139765 A031412 A033252

Adjacent sequences: A180520 A180521 A180522 * A180524 A180525 A180526

Keyword

base,nonn

Author

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

Status

approved