A166581 Primes containing the string 333.

2333, 3331, 5333, 7333, 10333, 13331, 13337, 13339, 16333, 17333, 19333, 20333, 23333, 23339, 29333, 31333, 33301, 33311, 33317, 33329, 33331, 33343, 33347, 33349, 33353, 33359, 33377, 33391, 38333, 41333, 43331, 49333, 50333, 55333

Offset: 1

Author

Vincenzo Librandi, Nov 01 2009

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A166571-A166573, A166579, A166580, A166582.

Programs

Mathematica

p333Q[n_] :=  Module[{idn = IntegerDigits[n]}, MemberQ[Partition[idn, 3, 1], {3, 3, 3}]]; Select[Prime[Range[20000]], p333Q] (* Vincenzo Librandi Sep 14 2012 *)

Formula

a(n) ~ n log n. - Charles R Greathouse IV, Nov 01 2022