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

Author

Zak Seidov, May 07 2005

Keywords

• nonn
• base

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)

Programs

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 *)

PARI

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

Extensions

More terms from Vincenzo Librandi, Apr 17 2010