|
| |
|
|
A180532
|
|
Primes that become a different prime under the mapping 1 <=> 9.
|
|
0
|
|
|
|
17, 71, 79, 97, 107, 137, 149, 167, 179, 191, 199, 317, 397, 401, 409, 419, 431, 439, 491, 619, 691, 701, 709, 761, 769, 821, 829, 907, 911, 919, 937, 941, 967, 971, 1009, 1019, 1021, 1049, 1051, 1093, 1109, 1123, 1201, 1213, 1229, 1231, 1249, 1277, 1283
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..49.
Index to Primes, Primes that become a different prime under some mapping.
|
|
|
MATHEMATICA
|
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 1] || MemberQ[id, 9]) && PrimeQ[ FromDigits[ id /. {1 -> 9, 9 -> 1}] ]]; Select[ Prime@ Range@ 210, fQ]
|
|
|
CROSSREFS
|
Cf. A171050, A175791, A180517 thru A180559, A175789, A180560, A180561.
Sequence in context: A041558 A327495 A183943 * A179038 A179039 A152295
Adjacent sequences: A180529 A180530 A180531 * A180533 A180534 A180535
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Zak Seidov and Robert G. Wilson v, Sep 09 2010
|
|
|
STATUS
|
approved
|
| |
|
|
