|
%I
%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 n such that n999 is prime.
%C Also numbers such that 1000*n+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 n=1, then n999 = 1999 (prime)
%e If n=25, then n999 = 25999 (prime)
%e If n=49, then n999 = 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
|
