OFFSET
1,1
EXAMPLE
(4!-2)/2 = 11 is a prime.
MATHEMATICA
Select[Range[0, 14000], PrimeQ[(#! - 2) / 2] &] (* Vincenzo Librandi, Feb 18 2015 *)
PROG
(PARI) xfactpk(n, k=2) = { for(x=2, n, y = (x!-k)/k; if(isprime(y), print1(x", ")) ) }
(Magma) [n: n in [1..600]| IsPrime((Factorial(n)-2) div 2)]; // Vincenzo Librandi, Feb 18 2015
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Cino Hilliard, May 18 2003
EXTENSIONS
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008
Edited by T. D. Noe, Oct 30 2008
STATUS
approved