A180522 - OEIS

A180522

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

73, 103, 109, 173, 179, 409, 479, 701, 709, 719, 743, 761, 773, 1021, 1033, 1303, 1373, 1721, 1733, 1801, 1871, 2011, 2029, 2053, 2089, 2203, 2273, 2711, 2729, 2753, 2789, 3019, 3061, 3079, 3301, 3371, 3709, 3719, 3761, 4021, 4051, 4073, 4093, 4099, 4201

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

OFFSET

1,1

LINKS

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

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

MATHEMATICA

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

CROSSREFS

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

Sequence in context: A327714 A179154 A116210 * A238679 A157120 A118220

Adjacent sequences: A180519 A180520 A180521 * A180523 A180524 A180525

KEYWORD

base,nonn

AUTHOR

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

STATUS

approved