login
A106114
Primes with minimal digit > 3.
1
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
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
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 07 2005
EXTENSIONS
More terms from Vincenzo Librandi, Apr 17 2010
STATUS
approved