login
A180519
Primes that become a different prime under the mapping 0 <=> 4.
1
43, 47, 109, 149, 307, 347, 401, 419, 431, 443, 461, 467, 479, 601, 607, 641, 647, 907, 947, 1033, 1039, 1049, 1051, 1087, 1093, 1409, 1433, 1439, 1451, 1487, 1493, 2011, 2017, 2203, 2243, 2411, 2417, 2503, 2543, 2803, 2843, 3061, 3067, 3307, 3347, 3461
OFFSET
1,1
LINKS
Index to Primes, Primes that become a different prime under some mapping.
MATHEMATICA
fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 0] || MemberQ[id, 4]) && PrimeQ[ FromDigits[ id /. {0 -> 4, 4 -> 0}] ]]; Select[ Prime@ Range@ 500, fQ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
STATUS
approved