A033560 Primes p such that 4!+p is also prime.
5, 7, 13, 17, 19, 23, 29, 37, 43, 47, 59, 73, 79, 83, 89, 103, 107, 113, 127, 139, 149, 157, 167, 173, 199, 227, 233, 239, 257, 269, 283, 293, 307, 313, 349, 359, 373, 397, 409, 419, 433, 439, 443, 463, 467, 479, 499, 523, 547, 563, 569, 577, 593, 607, 617, 619
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(700)| IsPrime(p+24)]; // Vincenzo Librandi, Nov 18 2010
-
Mathematica
Select[Prime[Range[3, 1000]], PrimeQ[# + 24] &] (* Vincenzo Librandi, May 19 2014 *)