%I #20 Jan 20 2018 02:36:06
%S 32,72,74,90,92,96,102,104,114,116,120,144,156,200,210,216,230,236,
%T 242,260,270,272,294,296,312,314,324,326,336,344,354,386,432,450,456,
%U 464,476,494,516,522,530,546,566,600,620,630,632,660,686,714,716,726,734
%N Numbers k such that 9973*k - 1009 is prime.
%C 1009 and 9973 are the smallest and largest of four-digit primes.
%H Harvey P. Dale, <a href="/A106700/b106700.txt">Table of n, a(n) for n = 1..1000</a>
%e If k=32, then 9973*k - 1009 = 318127 (prime).
%e If k=116, then 9973*k - 1009 = 1155859 (prime).
%t Select[Range[1000],PrimeQ[9973#-1009]&] (* _Harvey P. Dale_, Jan 29 2013 *)
%o MAGMA) [n: n in [1..100000] | IsPrime(9973*n - 1009)]; // _Vincenzo Librandi_, Nov 13 2010
%o (PARI) is(n)=isprime(9973*n-1009) \\ _Charles R Greathouse IV_, Jun 12 2017
%Y Cf. A105680, A105710.
%K nonn,easy
%O 1,1
%A _Parthasarathy Nambi_, May 13 2005
|