A180542 - OEIS

A180542

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

31, 37, 61, 67, 137, 167, 239, 269, 307, 317, 331, 347, 359, 431, 461, 607, 617, 647, 659, 661, 739, 769, 937, 967, 1031, 1039, 1061, 1069, 1301, 1307, 1319, 1321, 1327, 1367, 1399, 1601, 1607, 1619, 1621, 1627, 1637, 1699, 1831, 1861, 2039, 2069, 2131

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

OFFSET

1,1

LINKS

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

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

MATHEMATICA

fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 3] || MemberQ[id, 6]) && PrimeQ[ FromDigits[ id /. {3 -> 6, 6 -> 3}] ]]; Select[ Prime@ Range@ 350, fQ]

CROSSREFS

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

Sequence in context: A255223 A230225 A129998 * A097437 A156974 A215431

Adjacent sequences: A180539 A180540 A180541 * A180543 A180544 A180545

KEYWORD

base,nonn

AUTHOR

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

STATUS

approved