login
A154663
Numbers n such that n!-+767 are primes.
2
3, 5, 6, 7, 10, 11
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
STATUS
approved