|
%I #13 Sep 08 2022 08:45:17
%S 2,7,23,37,53,67,97,163,167,227,277,337,397,503,547,563,727,953,1033,
%T 1213,1277,1297,1423,1543,1553,1783,1847,1987,2003,2017,2203,2213,
%U 2237,2347,2633,2663,2693,2957,3257,3313,3343,3373,3517,3617,3637,3847,3923
%N Primes p such that 28*p +- 3 are primes.
%t Select[Prime[Range[400]], PrimeQ[28#+3]&&PrimeQ[28#-3]&]
%o (Magma) [n: n in [0..10000]| IsPrime(n) and IsPrime(28*n-3) and IsPrime(28*n+3)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 05 2005
|
