|
%I #22 Sep 08 2022 08:45:18
%S 0,6,14,54,66,80,86,90,126,128,146,198,200,206,216,234,236,266,278,
%T 296,308,326,336,350,368,380,390,420,438,446,458,476,494,530,534,536,
%U 564,584,590,594,614,630,660,668,674,678,684,716,758,860,870,894,936,944
%N Numbers k such that 10007*k + 99991 is prime.
%C 10007 and 99991 are the smallest and largest five-digit primes.
%H Daniel Starodubtsev, <a href="/A107301/b107301.txt">Table of n, a(n) for n = 1..10000</a>
%e If k=0, then 10007*k + 99991 = 99991 (prime).
%e If k=128, then 10007*k + 99991 = 1380887 (prime).
%t Select[Range[0,1000],PrimeQ[10007#+99991]&] (* _Harvey P. Dale_, May 01 2018 *)
%o (Magma) [n: n in [0..100000] | IsPrime(10007*n + 99991)]; // _Vincenzo Librandi_, Nov 13 2010
%o (PARI) is(n)=isprime(10007*n+99991) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A107302.
%K nonn,easy
%O 1,2
%A _Parthasarathy Nambi_, May 20 2005
|
