A180540 Primes that become a different prime under the mapping 3 <=> 4.

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

Offset

1,1

Links

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

Index to Primes, Primes that become a different prime under some mapping.

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

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

Sequence in context: A230035 A051267 A073521 * A279846 A291994 A255223

Adjacent sequences: A180537 A180538 A180539 * A180541 A180542 A180543

Keyword

base,nonn

Author

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

Status

approved