A106114 Primes with minimal digit > 3.

5, 7, 47, 59, 67, 79, 89, 97, 449, 457, 467, 479, 487, 499, 547, 557, 569, 577, 587, 599, 647, 659, 677, 757, 769, 787, 797, 857, 859, 877, 887, 947, 967, 977, 997, 4447, 4457, 4547, 4549, 4567, 4597, 4649, 4657, 4679, 4759, 4787, 4789, 4799, 4877, 4889, 4957

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..10000

James Maynard, Primes with restricted digits, arXiv:1604.01041 [math.NT], 2016.

James Maynard and Brady Haran, Primes without a 7, Numberphile video (2019)

Mathematica

Select[Prime[Range[400]], Min[IntegerDigits[ # ]]>3&]
Flatten[Table[Select[FromDigits/@Tuples[Range[4, 9], n], PrimeQ], {n, 4}]] (* Harvey P. Dale, Jan 09 2016 *)

Prog

(PARI) is(n)=#setintersect(Set(digits(n)), [0, 1, 2, 3]) && isprime(n) \\ Charles R Greathouse IV, Apr 11 2016

Crossrefs

Sequence in context: A120301 A119787 A025530 * A217039 A299452 A110420

Adjacent sequences: A106111 A106112 A106113 * A106115 A106116 A106117

Keyword

nonn,base

Author

Zak Seidov, May 07 2005

Extensions

More terms from Vincenzo Librandi, Apr 17 2010

Status

approved