OFFSET
1,1
COMMENTS
Next term is larger than 240
MATHEMATICA
lst={}; a=767; Do[If[PrimeQ[n!-a]&&PrimeQ[n!+a], AppendTo[lst, n]], {n, 2*5!}]; lst
Select[Range[15], AllTrue[#!+{767, -767}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 13 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 13 2009
STATUS
approved