A180558 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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]

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