%I #5 May 13 2013 01:49:00
%S 7,683,87178291003,
%T 23721732428800468856771473051394170805702085973808045661837377170052497697783313457227249544076486314839447086187187275319400401837013955325179315652376928996065123321190898603130879999999999999999999999999984123
%N Primes of the form n!-n^2-1.
%t lst={};Do[s=n!-n^2;If[PrimeQ[p=s-1],AppendTo[lst,p]],{n,3,2*5!}];lst
%o (PARI) for(n=1,1e3,if(ispseudoprime(t=n!-n^2-1),print1(t", "))) \\ _Charles R Greathouse IV_, Oct 03 2011
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Sep 27 2008