A180528 Primes that become a different prime under the mapping 1 <=> 5.

13, 19, 53, 59, 103, 109, 163, 193, 199, 313, 353, 503, 509, 563, 593, 599, 613, 619, 653, 659, 1009, 1019, 1039, 1087, 1103, 1117, 1163, 1237, 1279, 1297, 1303, 1399, 1453, 1459, 1483, 1553, 1559, 1567, 1579, 1597, 1613, 1619, 1669, 1693, 1783, 1867

Offset

1,1

Links

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A220162 A248483 A274424 * A109504 A122042 A291862

Adjacent sequences: A180525 A180526 A180527 * A180529 A180530 A180531

Keyword

base,nonn

Author

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

Status

approved