1,1

Next term is larger than 240

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

Cf. A144046, A154660, A154661, A154662

Sequence in context: A124194 A055597 A053048 this_sequence A028983 A038550 A028730

Adjacent sequences: A154660 A154661 A154662 this_sequence A154664 A154665 A154666

nonn

Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 13 2009