3,1

5!-107=13;5!+107=227.

lst={}; a=107; Do[If[PrimeQ[n!-a]&&PrimeQ[n!+a], AppendTo[lst, n]], {n, 0, 20^2}]; lst

Sequence in context: A037349 A037350 A014615 this_sequence A155854 A047252 A039235

Adjacent sequences: A144043 A144044 A144045 this_sequence A144047 A144048 A144049

nonn

Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 08 2008