|
%I #14 Sep 08 2022 08:45:17
%S 2,5,17,23,37,53,73,277,373,457,593,607,907,1223,1327,1447,1607,1753,
%T 1997,2207,2273,2383,2447,2473,2657,2677,2777,2887,2903,3167,3313,
%U 3463,3637,3797,4253,4273,4603,4637,4643,4657,4993,5147,5227,5477,5507,5737
%N Primes p such that 32*p +- 3 are primes.
%t Select[Prime[Range[400]], PrimeQ[32#+3]&&PrimeQ[32#-3]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(32*p+3) and IsPrime(32*p-3)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 05 2005
|
