A136260 Primes which contain the digit 2 or the digit 3.

2, 3, 13, 23, 29, 31, 37, 43, 53, 73, 83, 103, 113, 127, 131, 137, 139, 163, 173, 193, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 421, 431, 433

Offset

1,1

Links

Table of n, a(n) for n=1..55.

Chris Caldwell, The First 1000 primes.

Maple

a:=proc(n) local nn: nn:=convert(convert(n, base, 10), set): if isprime(n)=true and 0 < nops(`intersect`({2, 3}, nn)) then n else end if end proc: seq(a(n), n= 1..400); # Emeric Deutsch, Mar 31 2008

Mathematica

fQ[n_] := Block[{id = IntegerDigits@ n}, MemberQ[id, 2] || MemberQ[id, 3]]; Select[ Prime@ Range@ 84, fQ@ # &] (* Robert G. Wilson v, Apr 19 2008 *)

Crossrefs

Cf. A137238, A133765.

Sequence in context: A137248 A355438 A358427 * A296932 A288054 A181521

Adjacent sequences: A136257 A136258 A136259 * A136261 A136262 A136263

Keyword

nonn,base,easy

Author

Parthasarathy Nambi, Mar 17 2008

Extensions

Corrected and extended by Emeric Deutsch, Mar 31 2008

Status

approved