login
Primes p such that 80*p +- 3 are primes.
0

%I #13 Sep 08 2022 08:45:17

%S 2,7,11,37,79,103,163,269,283,383,401,467,613,751,773,823,877,919,929,

%T 977,1069,1151,1153,1181,1229,1361,1367,1423,1439,1447,1579,1901,2011,

%U 2161,2203,2411,2557,2791,2833,3083,3259,3449,3517,3581,3623,3643,3691

%N Primes p such that 80*p +- 3 are primes.

%t Select[Prime[Range[400]], PrimeQ[80#+3]&&PrimeQ[80#-3]&]

%o (Magma) [p: p in PrimesUpTo(100000)| IsPrime(80*p-3) and IsPrime(80*p+3)]; // _Vincenzo Librandi_, Nov 13 2010

%K nonn

%O 1,1

%A _Zak Seidov_, May 05 2005