OFFSET
1,1
COMMENTS
5!-37=83;5!+37=157,...
MATHEMATICA
lst={}; a=37; Do[If[PrimeQ[n!-a]&&PrimeQ[n!+a], AppendTo[lst, n]], {n, 2*5!}]; lst
CROSSREFS
KEYWORD
nonn,full,fini
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 13 2009
EXTENSIONS
Name corrected by Chai Wah Wu, Oct 18 2020
STATUS
approved