A180556 Primes that become a different prime under the mapping 6 <=> 8.

263, 283, 467, 487, 653, 659, 661, 677, 683, 853, 859, 863, 877, 881, 1361, 1381, 1601, 1669, 1801, 1889, 2063, 2069, 2083, 2089, 2267, 2287, 2633, 2657, 2833, 2857, 3167, 3187, 3623, 3677, 3823, 3877, 4463, 4483, 4967, 4987, 5261, 5281, 5639, 5651, 5657

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A105008 A345577 A345834 * A288502 A320710 A142754

Adjacent sequences: A180553 A180554 A180555 * A180557 A180558 A180559

Keyword

base,nonn

Author

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

Status

approved