1,1

5!-37=83;5!+37=157,...

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

Cf. A144046

Adjacent sequences: A154657 A154658 A154659 this_sequence A154661 A154662 A154663

Sequence in context: A134483 A121151 A088243 this_sequence A004492 A140255 A050270

nonn

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