OFFSET
1,1
COMMENTS
EXAMPLE
3 is a term because 2*3 - 1 = 5 is prime.
4 is a term because 1*3*4 - 1 = 11 is prime.
6 is a term because 1*2*3*5*6 - 1 = 179 is prime.
MATHEMATICA
Select[Range[3, 6000], PrimeQ[( #! / (# - 2) - 1)] &]
PROG
(PARI) lista(nn) = for(n=3, nn, if(ispseudoprime(n!/(n-2)-1), print1(n, ", ")));
(PFGW) ABC2 $a!/($a-2) - 1
a: from 3 to 6000
(Magma) [n: n in [3..1000] | IsPrime(Factorial(n) div (n-2) - 1)];
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar and Altug Alkan, Aug 22 2017
EXTENSIONS
a(22)-a(23) from Giovanni Resta, Aug 23 2017
STATUS
approved