|
%I #16 Sep 08 2022 08:45:17
%S 2,5,11,19,59,89,109,149,151,331,359,389,401,439,499,521,571,599,829,
%T 941,1019,1039,1129,1249,1279,1319,1381,1451,1669,1741,1871,2131,2161,
%U 2179,2251,2459,2819,3119,3251,3469,3539,3581,3659,3911,4001,4231,4261
%N Primes p such that 4*p +- 3 are primes.
%H Harvey P. Dale, <a href="/A106015/b106015.txt">Table of n, a(n) for n = 1..1000</a>
%F A023213 INTERSECT A157978. - _R. J. Mathar_, Jul 25 2009
%t Select[Prime[Range[400]], PrimeQ[4#+3]&&PrimeQ[4#-3]&]
%t Select[Prime[Range[600]],AllTrue[4#+{3,-3},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Feb 18 2021 *)
%o (Magma) [p: p in PrimesUpTo(100000)| IsPrime(4*p-3) and IsPrime(4*p+3)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 05 2005
|
