|
| |
|
|
A180552
|
|
Primes that become a different prime under the mapping 5 <=> 7.
|
|
0
|
|
|
|
5, 7, 53, 59, 73, 79, 251, 271, 353, 359, 373, 379, 509, 569, 571, 653, 673, 709, 751, 769, 1151, 1171, 1259, 1279, 1451, 1471, 1523, 1579, 1583, 1723, 1759, 1783, 2351, 2371, 2531, 2549, 2591, 2731, 2749, 2791, 3251, 3271, 3533, 3539, 3559, 3593, 3733
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..47.
Index to Primes, Primes that become a different prime under some mapping.
|
|
|
MATHEMATICA
|
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 5] || MemberQ[id, 7]) && PrimeQ[ FromDigits[ id /. {5 -> 7, 7 -> 5}] ]]; Select[ Prime@ Range@ 550, fQ]
|
|
|
CROSSREFS
|
Cf. A171039, A175791, A180517 thru A180559, A175789, A180560, A180561.
Sequence in context: A110420 A210244 A123789 * A168545 A082714 A106112
Adjacent sequences: A180549 A180550 A180551 * A180553 A180554 A180555
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Zak Seidov and Robert G. Wilson v, Sep 09 2010
|
|
|
STATUS
|
approved
|
| |
|
|
