A106114 - OEIS

%I #14 Nov 20 2019 19:20:11

%S 5,7,47,59,67,79,89,97,449,457,467,479,487,499,547,557,569,577,587,

%T 599,647,659,677,757,769,787,797,857,859,877,887,947,967,977,997,4447,

%U 4457,4547,4549,4567,4597,4649,4657,4679,4759,4787,4789,4799,4877,4889,4957

%N Primes with minimal digit > 3.

%H Harvey P. Dale, <a href="/A106114/b106114.txt">Table of n, a(n) for n = 1..10000</a>

%H James Maynard, <a href="http://arxiv.org/abs/1604.01041">Primes with restricted digits</a>, arXiv:1604.01041 [math.NT], 2016.

%H James Maynard and Brady Haran, <a href="https://www.youtube.com/watch?v=eeoBCS7IEqs">Primes without a 7</a>, Numberphile video (2019)

%t Select[Prime[Range[400]], Min[IntegerDigits[ # ]]>3&]

%t Flatten[Table[Select[FromDigits/@Tuples[Range[4,9],n],PrimeQ],{n,4}]] (* _Harvey P. Dale_, Jan 09 2016 *)

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

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 07 2005

%E More terms from _Vincenzo Librandi_, Apr 17 2010