|
%I #9 Apr 03 2023 10:36:10
%S 13,19,31,61,97,103,109,151,163,181,193,223,229,277,283,307,367,373,
%T 409,433,439,487,499,523,571,601,607,613,619,709,733,787,811,823,877,
%U 907,997,1013,1019,1031,1039,1061,1063,1069,1087,1097,1103,1109,1129
%N Primes p such that p+1000 or p-1000 are also primes.
%C Primes that differ by 1000.
%H Zak Seidov, <a href="/A101408/b101408.txt">Table of n, a(n) for n = 1..1000</a>
%H Chris Caldwell, <a href="https://t5k.org/lists/small/">List of small primes</a>.
%e 13 and 1013=13+1000 are both primes and therefore are both terms.
%e 1039 and 2039=1039+1000 are both primes and therefore are both terms.
%t Select[Prime[Range[200]], (# > 1000 && PrimeQ[ # - 1000]) || PrimeQ[ # + 1000] &]
%K nonn
%O 1,1
%A _Parthasarathy Nambi_, Jan 15 2005
%E Edited and extended by _Ray Chandler_, Jan 18 2005
|
