login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers n such that n!-+767 are primes.
2

%I #4 Dec 13 2014 11:41:29

%S 3,5,6,7,10,11

%N Numbers n such that n!-+767 are primes.

%C Next term is larger than 240

%t lst={};a=767;Do[If[PrimeQ[n!-a]&&PrimeQ[n!+a],AppendTo[lst,n]],{n,2*5!}];lst

%t Select[Range[15],AllTrue[#!+{767,-767},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 13 2014 *)

%Y Cf. A144046, A154660, A154661, A154662

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Jan 13 2009