|
| |
|
|
A180539
|
|
Primes that become a different prime under the mapping 2 <=> 9.
|
|
0
|
|
|
|
127, 197, 211, 227, 241, 271, 277, 283, 421, 491, 523, 593, 727, 797, 911, 941, 971, 977, 983, 997, 1021, 1091, 1123, 1193, 1201, 1213, 1223, 1231, 1423, 1493, 1627, 1697, 1901, 1913, 1931, 1993, 2011, 2137, 2161, 2207, 2267, 2273, 2293, 2311, 2341
(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, 2] || MemberQ[id, 9]) && PrimeQ[ FromDigits[ id /. {2 -> 9, 9 -> 2}] ]]; Select[ Prime@ Range@ 350, fQ]
|
|
|
CROSSREFS
|
Cf. A171051, A175791, A180517 thru A180559, A175789, A180560, A180561.
Sequence in context: A095284 A127579 A107380 * A195377 A142090 A095730
Adjacent sequences: A180536 A180537 A180538 * A180540 A180541 A180542
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Zak Seidov and Robert G. Wilson v, Sep 09 2010
|
|
|
STATUS
|
approved
|
| |
|
|
