%I A154660
%S A154660 3,4,5,6,7,8
%N A154660 Numbers n such that n!-+37 are primes.
%C A154660 5!-37=83;5!+37=157,...
%t A154660 lst={};a=37;Do[If[PrimeQ[n!-a]&&PrimeQ[n!+a],AppendTo[lst,n]],{n,2*5!}];
               lst
%Y A154660 Cf. A144046
%Y A154660 Sequence in context: A134483 A121151 A088243 this_sequence A004492 A140255 
               A050270
%Y A154660 Adjacent sequences: A154657 A154658 A154659 this_sequence A154661 A154662 
               A154663
%K A154660 nonn
%O A154660 1,1
%A A154660 Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 13 2009