A180550 Primes that become a different prime under the mapping 4 <=> 9.

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

Robert Price, Table of n, a(n) for n = 1..1559

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

Cf. A171053, A175791, A180517 thru A180559, A175789, A180560, A180561.

Sequence in context: A141944 A281437 A319051 * A176134 A155844 A245688

Adjacent sequences: A180547 A180548 A180549 * A180551 A180552 A180553

Keyword

base,nonn

Author

Zak Seidov and Robert G. Wilson v, Sep 09 2010

Status

approved