|
%I #17 Sep 08 2022 08:45:17
%S 3,7,13,37,43,67,79,97,127,163,193,277,307,487,499,673,739,853,883,
%T 1087,1093,1297,1423,1429,1549,1567,1579,1597,1663,2293,2437,2683,
%U 2953,3037,3163,3457,3793,3907,3943,4447,4519,4729,4789,4999,5503,5527,5569,5653
%N Primes p such that 1*p + 4 and 4*p + 1 are primes.
%t Select[Prime[Range[220]], PrimeQ[4#+1]&&PrimeQ[1#+4]&]
%o (Magma) [p: p in PrimesUpTo(100000)| IsPrime(p+4) and IsPrime(4*p+1)]; // _Vincenzo Librandi_, Nov 13 2010
%Y Cf. A045536 (primes p such that 1*p + 2 and 2*p + 1 are primes).
%Y Intersection of A023200 and A023212. - _Michel Marcus_, Jan 20 2018
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
%E More terms from _Vincenzo Librandi_, Apr 01 2010
|
