OFFSET
1,1
COMMENTS
7!-367=4673, 7!+367=6407,...
MATHEMATICA
lst={}; a=367; Do[If[PrimeQ[n!-a]&&PrimeQ[n!+a], AppendTo[lst, n]], {n, 2*5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 13 2009
STATUS
approved