A180557 Primes that become a different prime under the mapping 6 <=> 9.

67, 97, 163, 167, 193, 197, 263, 293, 367, 397, 461, 491, 563, 593, 607, 641, 647, 653, 661, 677, 683, 907, 941, 947, 953, 977, 983, 991, 1061, 1063, 1091, 1093, 1163, 1193, 1567, 1597, 1601, 1607, 1613, 1663, 1667, 1901, 1907, 1913, 1993, 1997, 2267, 2297

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A302345 A276307 A260806 * A127732 A071958 A128197

Adjacent sequences: A180554 A180555 A180556 * A180558 A180559 A180560

Keyword

base,nonn

Author

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

Status

approved