%I A087202
%S A087202 4,5,7,7,11,13,19,31,23,19,19,43,73,41,149,41,53,61,109,37,37,71,109,
%T A087202 193,97,173,59,101,229,163,241,83,139,103,83,577,397,47,269,61,211,107,
%U A087202 97,89,379,149,269,83,137,167,281,89,79,443,229,157,179,563,389,277
%N A087202 a(n) is the smallest m such that m > A037153(n) and n!+ m is prime.
%C A087202 a(n) is the second m (first m is A037153(n)) such that m > 1 and n!+ 
               m is prime. For 1 < n < 630,a(n) is prime,I guess for n > 1,a(n) 
               (compare the conjecture about A037153) is prime.
%F A087202 A037153[n_] := (For[m=Prime[PrimePi[n]+1], !PrimeQ[n!+m], m++ ]; m); 
               a[n_] := (For[m=A037153[n]+1, !PrimeQ[n!+m], m++ ]; m)
%t A087202 A037153[n_] := (For[m=Prime[PrimePi[n]+1], !PrimeQ[n!+m], m++ ]; m); 
               a[n_] := (For[m=A037153[n]+1, !PrimeQ[n!+m], m++ ]; m); Table[a[n], 
               {n, 60}]
%Y A087202 Cf. A037153, A005235, A087200.
%Y A087202 Sequence in context: A088298 A075992 A022294 this_sequence A010666 A164515 
               A047494
%Y A087202 Adjacent sequences: A087199 A087200 A087201 this_sequence A087203 A087204 
               A087205
%K A087202 easy,nonn
%O A087202 1,1
%A A087202 Farideh Firoozbakht (mymontain(AT)yahoo.com), Sep 01 2003