|
%I #21 Sep 08 2022 08:44:47
%S 2,5,7,11,13,23,37,41,43,47,67,71,97,103,113,137,151,163,167,173,181,
%T 191,197,211,233,251,263,271,277,293,307,317,397,401,421,431,433,463,
%U 467,491,557,571,587,593,607,617,653,683,727,757,811,823,863,877,881,883,887,907
%N Primes p such that 4*p + 9 is also prime.
%H Vincenzo Librandi, <a href="/A023216/b023216.txt">Table of n, a(n) for n = 1..4000</a>
%t Select[Prime[Range[2000]], PrimeQ[4# + 9]&] (* _Vincenzo Librandi_, Feb 02 2014 *)
%o (Magma) [n: n in [0..1000] | IsPrime(n) and IsPrime(4*n+9)]; // _Vincenzo Librandi_, Nov 19 2010
%K nonn,easy
%O 1,1
%A _David W. Wilson_
|
