|
|
A180540
|
|
Primes that become a different prime under the mapping 3 <=> 4.
|
|
1
|
|
|
31, 37, 41, 47, 139, 149, 349, 367, 379, 439, 467, 479, 631, 641, 937, 947, 1039, 1049, 1327, 1381, 1399, 1427, 1481, 1499, 2131, 2141, 2311, 2347, 2377, 2411, 2437, 2477, 2539, 2549, 2731, 2741, 3001, 3019, 3079, 3217, 3229, 3259, 3271, 3331, 3449, 3457
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 3] || MemberQ[id, 4]) && PrimeQ[ FromDigits[ id /. {3 -> 4, 4 -> 3}] ]]; Select[ Prime@ Range@ 500, fQ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|