|
%I #15 Sep 08 2022 08:45:17
%S 3,17,47,83,101,113,167,251,257,281,311,467,521,593,617,677,827,857,
%T 881,1277,1319,1583,1847,2309,2357,2423,2579,2591,2897,2903,3323,3767,
%U 3779,3911,4157,4229,4283,4481,4493,4523,4637,4871,5087,5279,5297,5801,5867
%N Primes p such that 5*p+4 and 4*p+5 are primes.
%t Select[Prime[Range[220]], PrimeQ[4#+5]&&PrimeQ[5#+4]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(5*p+4) and IsPrime(4*p+5)] // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
%E More terms from _Vincenzo Librandi_, Apr 01 2010
|
