%I A087201
%S A087201 11,13,17,19,47,37,61,67,79,107,53,149,97,89,109,223,107,179,181,101,
%T A087201 197,101,257,139,137,197,313,257,257,223,449,373,233,463,479,409,257,
%U A087201 409,383,317,587,607,401,463,347,313,751,313,443,349,809,661,587,367
%N A087201 a(n) is the smallest m such that m > A055211(n) and A002110(n)-m is prime.
%C A087201 a(1) and a(2) are not defined. a(n) is the second m (first m is A055211(n)) 
               such that m > 1 and A002110(n)-m is prime. I guess every term of 
               this sequence (compare the conjecture about A055211) is prime. I 
               checked this conjecture for n < 418.
%F A087201 A055211[n_] := (For[m=2, !PrimeQ[Product[Prime[k], {k, n}]-m], m++ ]; 
               m); a[n_] := (For[m=A055211[n]+1, !PrimeQ[Product[Prime[k], {k, n}]-m], 
               m++ ]; m);
%t A087201 A055211[n_] := (For[m=2, !PrimeQ[Product[Prime[k], {k, n}]-m], m++ ]; 
               m); a[n_] := (For[m=A055211[n]+1, !PrimeQ[Product[Prime[k], {k, n}]-m], 
               m++ ]; m); Table[a[n], {n, 3, 62}]
%Y A087201 Cf. A055211, A002110, A087200.
%Y A087201 Sequence in context: A068155 A157175 A132244 this_sequence A068492 A045707 
               A032591
%Y A087201 Adjacent sequences: A087198 A087199 A087200 this_sequence A087202 A087203 
               A087204
%K A087201 easy,nonn
%O A087201 3,1
%A A087201 Farideh Firoozbakht (f.firoozbakht(AT)sci.ui.ac.ir), Aug 27 2003