A180535 Primes that become a different prime under the mapping 2 <=> 5.

2, 5, 23, 29, 53, 59, 127, 157, 227, 241, 251, 263, 269, 271, 277, 293, 521, 541, 557, 563, 569, 571, 577, 593, 727, 757, 823, 827, 829, 853, 857, 859, 1021, 1051, 1123, 1153, 1223, 1229, 1231, 1249, 1279, 1283, 1297, 1423, 1429, 1453, 1459, 1531, 1549

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A198444 A019368 A141171 * A038919 A141181 A191030

Adjacent sequences: A180532 A180533 A180534 * A180536 A180537 A180538

Keyword

base,nonn

Author

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

Status

approved