A180532 Primes that become a different prime under the mapping 1 <=> 9.

17, 71, 79, 97, 107, 137, 149, 167, 179, 191, 199, 317, 397, 401, 409, 419, 431, 439, 491, 619, 691, 701, 709, 761, 769, 821, 829, 907, 911, 919, 937, 941, 967, 971, 1009, 1019, 1021, 1049, 1051, 1093, 1109, 1123, 1201, 1213, 1229, 1231, 1249, 1277, 1283

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A041558 A327495 A183943 * A179038 A179039 A152295

Adjacent sequences: A180529 A180530 A180531 * A180533 A180534 A180535

Keyword

base,nonn

Author

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

Status

approved