|
%I #17 Sep 08 2022 08:45:18
%S 6,12,24,34,40,66,114,124,130,144,154,172,196,210,222,226,240,244,252,
%T 270,282,300,306,336,352,354,366,370,376,382,384,424,432,454,474,480,
%U 502,532,562,570,574,586,592,600,604,612,616,622,636,646,690,702,714
%N Numbers k such that 997*k - 101 is prime.
%C 101 and 997 are the smallest and largest three-digit primes.
%e If k=6, then 997*k - 101 = 5881 (prime).
%e If k=144, then 997*k - 101 = 143467 (prime).
%t Select[Range[800],PrimeQ[997#-101]&] (* _Harvey P. Dale_, Oct 01 2012 *)
%o (Magma) [n: n in [1..100000] | IsPrime(997*n - 101)]; // _Vincenzo Librandi_, Nov 13 2010
%o (PARI) is(n)=isprime(997*n-101) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A105679, A105583.
%K nonn,easy
%O 1,1
%A _Parthasarathy Nambi_, May 13 2005
|
