A151894 Numbers k such that k! + second prime after k! is prime.
2, 3, 5, 6, 7, 8, 11, 17, 42, 66, 76, 93, 139, 157, 226, 290, 415, 522, 774, 794, 1947
Offset: 1
Programs
-
Mathematica
a = {}; Do[If[PrimeQ[n! + NextPrime[n!,2]], AppendTo[a, n]], {n, 200}]; a
-
PARI
is(k) = {my(f = k!); isprime(f + nextprime(nextprime(f + 1) + 1));} \\ Amiram Eldar, Oct 23 2024
Extensions
a(15)-a(20) from Amiram Eldar, Oct 23 2024
a(21) from Michael S. Branicky, Oct 24 2024
Comments