|
|
A180556
|
|
Primes that become a different prime under the mapping 6 <=> 8.
|
|
0
|
|
|
263, 283, 467, 487, 653, 659, 661, 677, 683, 853, 859, 863, 877, 881, 1361, 1381, 1601, 1669, 1801, 1889, 2063, 2069, 2083, 2089, 2267, 2287, 2633, 2657, 2833, 2857, 3167, 3187, 3623, 3677, 3823, 3877, 4463, 4483, 4967, 4987, 5261, 5281, 5639, 5651, 5657
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Table of n, a(n) for n=1..45.
Index to Primes, Primes that become a different prime under some mapping.
|
|
MATHEMATICA
|
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 6] || MemberQ[id, 8]) && PrimeQ[ FromDigits[ id /. {6 -> 8, 8 -> 6}] ]]; Select[ Prime@ Range@ 750, fQ]
|
|
CROSSREFS
|
Cf. A171047, A175791, A180517 thru A180559, A175789, A180560, A180561.
Sequence in context: A105008 A345577 A345834 * A288502 A320710 A142754
Adjacent sequences: A180553 A180554 A180555 * A180557 A180558 A180559
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Zak Seidov and Robert G. Wilson v, Sep 09 2010
|
|
STATUS
|
approved
|
|
|
|