cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A070281 Smallest prime which is the sum of n consecutive primes, or 0 if no such prime exists.

This page as a plain text file.
%I A070281 #20 Jun 07 2024 01:45:53
%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,
%U A070281 0,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.
%C A070281 Sequence A013918 lists the nonzero numbers occurring at even n.
%e A070281 a(60) = 7699 because Sum_{k=1..60} prime(k) = 7699 and 7699 is the smallest possible prime formed by summing 60 consecutive primes. - _Sean A. Irvine_, Jun 07 2024
%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}] (* _Ray Chandler_, Sep 27 2006 *)
%Y A070281 Cf. A070934.
%K A070281 nonn
%O A070281 1,1
%A A070281 _Amarnath Murthy_, May 07 2002
%E A070281 Corrected and extended by _Jim Nastos_, Jun 15 2002
%E A070281 Extended by _Ray Chandler_, Sep 27 2006
%E A070281 a(60) corrected by _Giovanni Resta_, May 31 2017
%E A070281 Original a(60) restored by _Sean A. Irvine_, Jun 07 2024