%I #21 Sep 08 2022 08:45:18
%S 10,16,18,24,28,34,48,54,58,66,70,76,84,90,96,100,124,136,138,150,154,
%T 156,168,178,180,186,198,208,228,234,238,256,264,276,280,294,298,300,
%U 310,318,324,336,340,354,360,366,370,376,378,390,406,418,430,450,468
%N Numbers k such that 101*k - 997 is prime.
%C 101 and 997 are the smallest and largest three-digit primes.
%H Daniel Starodubtsev, <a href="/A106695/b106695.txt">Table of n, a(n) for n = 1..10000</a>
%e If k=10, then 101*k - 997 = 13 (prime).
%e If k=66, then 101*k - 997 = 5669 (prime).
%t Select[Range[5,500],PrimeQ[101#-997]&] (* _Harvey P. Dale_, Sep 01 2021 *)
%o (Magma) [n: n in [10..100000] | IsPrime(101*n - 997)]; // _Vincenzo Librandi_, Nov 13 2010
%o (PARI) is(n)=isprime(101*n-997) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A105679, A105583.
%K nonn,easy
%O 1,1
%A _Parthasarathy Nambi_, May 13 2005
|