OFFSET
1,1
COMMENTS
Corresponding values of n are 4, 16, 46, 66, 72, 562, .... [Charles R Greathouse IV, Oct 05 2011]
MATHEMATICA
lst={}; Do[s=n!^2-n; If[PrimeQ[p=s-1], AppendTo[lst, p]], {n, 5!}]; lst
PROG
(PARI) for(n=1, 99, if(ispseudoprime(t=n!^2-n-1), print1(t", "))) \\ Charles R Greathouse IV, Oct 05 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 27 2008
STATUS
approved