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

67, 103, 107, 163, 167, 307, 367, 401, 461, 503, 509, 563, 569, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659, 673, 683, 701, 709, 761, 769, 907, 967, 1009, 1013, 1019, 1021, 1061, 1069, 1093, 1097, 1103, 1163, 1301, 1307, 1361, 1367, 1601, 1609, 1613

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A128197 A140541 A136077 * A139511 A142193 A141889

Adjacent sequences: A180518 A180519 A180520 * A180522 A180523 A180524

Keyword

base,nonn

Author

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

Status

approved