login
A180550
Primes that become a different prime under the mapping 4 <=> 9.
1
47, 97, 347, 397, 467, 491, 641, 691, 941, 967, 1433, 1447, 1451, 1487, 1933, 1951, 1987, 1997, 2243, 2293, 2417, 2543, 2593, 2741, 2791, 2917, 3407, 3467, 3907, 3967, 4001, 4007, 4013, 4091, 4093, 4127, 4133, 4157, 4243, 4283, 4337, 4391, 4423, 4597
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, 4] || MemberQ[id, 9]) && PrimeQ[ FromDigits[ id /. {4 -> 9, 9 -> 4}] ]]; Select[ Prime@ Range@ 650, fQ]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
STATUS
approved