login
A154662
Numbers n such that n!-+367 are primes.
3
6, 7, 13, 17, 20, 69
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
STATUS
approved