A180554 Primes that become a different prime under the mapping 5 <=> 9.

151, 157, 191, 197, 541, 547, 557, 571, 577, 593, 757, 797, 941, 947, 953, 971, 977, 997, 1051, 1091, 1153, 1193, 1453, 1493, 1531, 1553, 1657, 1697, 1931, 1993, 2503, 2593, 2857, 2897, 2903, 2953, 3511, 3517, 3547, 3911, 3917, 3947, 4051, 4091, 4357

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A182875 A336777 A250312 * A243531 A139505 A095745

Adjacent sequences: A180551 A180552 A180553 * A180555 A180556 A180557

Keyword

base,nonn

Author

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

Status

approved