|
%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
|
