|
%I #26 Jan 17 2019 13:44:08
%S 2,6,16,42,47,62,109,191,221,509,3671,4229,4886,6967,12086
%N Numbers n such that 10^n - 83 is prime.
%C The next term, if one exists, is > 100000. - _Robert Price_, Apr 25 2011
%C See Kamada link - primecount.txt for terms, primesize.txt for discovery details including probable or proved primes - search on "99917".
%H Makoto Kamada, <a href="https://stdkmd.net/nrr/">List of near-repdigit-related prime numbers</a>
%H <a href="/index/Pri#Pri_rep">Index entries for primes involving repunits</a>
%e 10^6 - 83 = 999917 which is a prime number.
%t nMax=1000; Do[If[PrimeQ[10^n-83], Print[n]], {n, nMax}]
%o (PARI) is(n)=ispseudoprime(10^n-83) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A108330, A108328.
%K more,nonn
%O 1,1
%A _Robert Price_, Dec 21 2010
%E Example corrected by _Patrick De Geest_, Nov 28 2014
|
