|
%I #9 Jul 08 2021 03:10:42
%S 1,2,4,8,13,25,32,35,41,49,52,56,59,70,71,73,77,79,85,94,98,100,101,
%T 104,107,133,134,136,137,139,143,157,161,164,172,179,182,184,188,191,
%U 199,202,203,212,221,223,230,239,242,247
%N Numbers k such that k999 is prime.
%C Also numbers k such that 1000*k + 999 is prime. - _Stefan Steinerberger_, Feb 22 2006
%H Chris Caldwell, <a href="http://www.utm.edu/research/primes/lists/small/100000.txt">The First 100,008 Primes</a>.
%e If k=1, then k999 = 1999 (prime).
%e If k=25, then k999 = 25999 (prime).
%e If k=49, then k999 = 49999 (prime).
%t Do[If[PrimeQ[1000*n + 999], Print[n]], {n, 1, 250}] (* _Stefan Steinerberger_, Feb 22 2006 *)
%K nonn,base
%O 1,2
%A _Parthasarathy Nambi_, Feb 04 2005
%E More terms from _Stefan Steinerberger_, Feb 22 2006
|
