A180558 Primes that become a different prime under the mapping 7 <=> 8.

73, 79, 83, 89, 271, 281, 373, 379, 383, 389, 673, 683, 709, 739, 773, 809, 839, 883, 1171, 1181, 1279, 1289, 1471, 1481, 1723, 1783, 1789, 1823, 1873, 1879, 2371, 2381, 2719, 2789, 2819, 2879, 3079, 3089, 3571, 3581, 3733, 3779, 3833, 3889, 4273, 4283

Offset

1,1

Links

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

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

Mathematica

fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 7] || MemberQ[id, 8]) && PrimeQ[ FromDigits[ id /. {7 -> 8, 8 -> 7}] ]]; Select[ Prime@ Range@ 600, fQ]
dp78Q[p_]:=With[{p2=FromDigits[IntegerDigits[p]/.{7->8, 8->7}]}, p2!=p&&PrimeQ[p2]]; Select[Prime[Range[600]], dp78Q] (* Harvey P. Dale, Jan 24 2026 *)

Crossrefs

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

Sequence in context: A033393 A153646 A179516 * A260555 A345550 A345804

Adjacent sequences: A180555 A180556 A180557 * A180559 A180560 A180561

Keyword

base,nonn

Author

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

Status

approved