%I #20 Sep 08 2022 08:45:17
%S 0,18,24,30,36,38,44,54,56,60,78,80,86,96,108,114,128,140,144,158,168,
%T 170,176,186,198,200,206,210,224,260,288,330,348,350,366,368,374,390,
%U 414,434,444,458,470,486,488,494,530,540,560,564,570,576,596,614,648
%N Numbers k such that 997*k + 101 is prime.
%C 101 and 997 are the smallest and largest three-digit primes, respectively.
%H Harvey P. Dale, <a href="/A105679/b105679.txt">Table of n, a(n) for n = 1..1000</a>
%e If k=0, then 997*k + 101 = 101 (prime).
%e If k=96, then 997*k + 101 = 95813 (prime).
%t Select[Range[0,1000],PrimeQ[997#+101]&] (* _Harvey P. Dale_, May 23 2012 *)
%o (Magma) [n: n in [0..700] | IsPrime(997*n+101)]; // _Vincenzo Librandi_, Nov 13 2010
%o (PARI) is(n)=isprime(997*n+101) \\ _Charles R Greathouse IV_, May 22 2017
%Y Cf. A105680.
%K nonn
%O 1,2
%A _Parthasarathy Nambi_, May 06 2005