A319224 Integers q for which f(q) = ((((q - 2)! - 1) / q) - 1) / (q + 1) is a prime number.
7, 11, 19, 61, 2557
Offset: 1
Programs
-
Mathematica
a[q_]:=If[PrimeQ[((((q - 2)! - 1) / q) - 1) / (q + 1)], q]; DeleteCases[Array[a, 100], Null] (* Stefano Spezia, Nov 04 2018 *)
-
PARI
forprime(q=7, 2557, my(p = ((((q - 2)! - 1) / q) - 1) / (q + 1)); if(ispseudoprime(p), print1(q, ", ")))
Comments