%I #13 Sep 08 2022 08:44:51
%S 5,7,13,17,19,23,29,37,43,47,59,73,79,83,89,103,107,113,127,139,149,
%T 157,167,173,199,227,233,239,257,269,283,293,307,313,349,359,373,397,
%U 409,419,433,439,443,463,467,479,499,523,547,563,569,577,593,607,617,619
%N Primes p such that 4!+p is also prime.
%H Vincenzo Librandi, <a href="/A033560/b033560.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[3, 1000]], PrimeQ[# + 24] &] (* _Vincenzo Librandi_, May 19 2014 *)
%o (Magma) [p: p in PrimesUpTo(700)| IsPrime(p+24)]; // _Vincenzo Librandi_, Nov 18 2010
%K nonn,easy
%O 1,1
%A _Jeff Burch_
|