%I A070281
%S A070281 2,5,23,17,53,41,197,0,127,0,233,197,691,281,379,0,499,0,857,0,953,0,
%T A070281 1151,0,1259,0,1583,0,2099,0,2399,0,2417,0,2579,0,2909,0,3803,0,3821,0,
%U A070281 4217,0,4651,0,5107,0,5813,0,6829,0,6079,0,6599,0,14153,0,10091,7699
%N A070281 Smallest prime which is the sum of n consecutive primes, or 0 if no such 
               prime exists.
%t A070281 f[n_] := Block[{k = 1, s},If[Mod[n, 2] == 0,s = Sum[Prime[i], {i, k, 
               k + n - 1}];If[PrimeQ[s], s, 0],While[s = Sum[Prime[i], {i, k, k 
               + n - 1}] ; ! PrimeQ[s], k++ ];s]];Table[f[n], {n, 65}] (*Chandler*)
%Y A070281 Cf. A070934.
%Y A070281 Sequence in context: A050994 A034384 A078419 this_sequence A019368 A141171 
               A038919
%Y A070281 Adjacent sequences: A070278 A070279 A070280 this_sequence A070282 A070283 
               A070284
%K A070281 nonn
%O A070281 1,1
%A A070281 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), May 07 2002
%E A070281 Corrected and extended by Jim Nastos, Jun 15, 2002
%E A070281 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Sep 27 2006