login
Primes with minimal digit > 2.
0

%I #12 Nov 20 2019 19:21:20

%S 3,5,7,37,43,47,53,59,67,73,79,83,89,97,337,347,349,353,359,367,373,

%T 379,383,389,397,433,439,443,449,457,463,467,479,487,499,547,557,563,

%U 569,577,587,593,599,643,647,653,659,673,677,683,733,739,743,757,769,773

%N Primes with minimal digit > 2.

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

%F a(n) >> n^k with k = log 10/log 7 = 1.183.... - _Charles R Greathouse IV_, Jan 02 2013

%t Select[Prime[Range[200]], Min[IntegerDigits[ # ]]>2&]

%o (PARI) is(p)=vecsort(digits(p),,8)[1]>2 && isprime(p) \\ _Charles R Greathouse IV_, Jan 02 2013

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 07 2005