|
| |
|
|
A180522
|
|
Primes that become a different prime under the mapping 0 <=> 7.
|
|
0
|
|
|
|
73, 103, 109, 173, 179, 409, 479, 701, 709, 719, 743, 761, 773, 1021, 1033, 1303, 1373, 1721, 1733, 1801, 1871, 2011, 2029, 2053, 2089, 2203, 2273, 2711, 2729, 2753, 2789, 3019, 3061, 3079, 3301, 3371, 3709, 3719, 3761, 4021, 4051, 4073, 4093, 4099, 4201
(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, 0] || MemberQ[id, 7]) && PrimeQ[ FromDigits[ id /. {0 -> 7, 7 -> 0}] ]]; Select[ Prime@ Range@ 600, fQ]
|
|
|
CROSSREFS
|
Cf. A171034, A175791, A180517 thru A180559, A175789, A180560, A180561.
Sequence in context: A139990 A179154 A116210 * A157120 A118220 A144050
Adjacent sequences: A180519 A180520 A180521 * A180523 A180524 A180525
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Zak Seidov and Robert G. Wilson v, Sep 09 2010
|
|
|
STATUS
|
approved
|
| |
|
|
