OFFSET
1,1
COMMENTS
The next term has 116 digits. - Harvey P. Dale, Feb 17 2015
MATHEMATICA
f[n_]:=n!-n; lst={}; Do[If[PrimeQ[f[n+1]-f[n]], AppendTo[lst, f[n+1]-f[n]]], {n, 0, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 27 2009 *)
Select[#[[2]]-#[[1]]-1&/@Partition[Range[100]!, 2, 1], PrimeQ] (* Harvey P. Dale, Feb 17 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved