|
%I #22 Apr 03 2023 10:36:10
%S 2,3,5,7,23,29,37,43,47,53,59,67,73,79,83,89,97,223,227,229,233,239,
%T 257,263,269,277,283,293,337,347,349,353,359,367,373,379,383,389,397,
%U 433,439,443,449,457,463,467,479,487,499,523,547,557,563,569,577,587,593
%N Primes with smallest digit > 1.
%H Indranil Ghosh, <a href="/A106116/b106116.txt">Table of n, a(n) for n = 1..50000</a>
%H Chris C. Caldwell, <a href="https://t5k.org/glossary/page.php?sort=YarboroughPrime">Yarborough prime</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)
%F a(n) >> n^k with k = log 10/log 8 = 1.107.... - _Charles R Greathouse IV_, Jan 02 2013
%t Select[Prime[Range[100]], Min[IntegerDigits[ # ]]>1&]
%o (PARI) is(p)=vecsort(digits(p),,8)[1]>1 && isprime(p) \\ _Charles R Greathouse IV_, Jan 02 2013
%Y Intersection of A038603 and A038618.
%Y Cf. A000040, A106745.
%K nonn,base
%O 1,1
%A _Zak Seidov_, May 07 2005
%E Terms > 523 added by _Jonathan Vos Post_, Feb 10 2010
|
