A180540 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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