A180551 Primes that become a different prime under the mapping 5 <=> 6.

157, 167, 457, 467, 541, 547, 563, 569, 577, 641, 647, 653, 659, 677, 751, 761, 853, 863, 1051, 1061, 1153, 1163, 1553, 1559, 1567, 1597, 1657, 1663, 1669, 1697, 2053, 2063, 2521, 2593, 2621, 2693, 2851, 2861, 2953, 2963, 3457, 3467, 3517, 3571, 3617

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A248504 A090851 A045230 * A096704 A178091 A178092

Adjacent sequences: A180548 A180549 A180550 * A180552 A180553 A180554

Keyword

base,nonn

Author

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

Status

approved