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.
%I A076873 #15 Jul 04 2019 20:39:17 %S A076873 2,5,11,17,29,41,59,79,101,131,163,197,239,281,331,383,443,503,569, %T A076873 641,719,797,877,967,1061,1163,1277,1373,1481,1597,1721,1861,1993, %U A076873 2129,2281,2437,2591,2749,2917,3089,3271,3449,3643,3833,4049,4229,4441,4663 %N A076873 Smallest prime not less than sum of first n primes. %C A076873 a(n) = A007918(A007504(n)). %H A076873 Robert Israel, <a href="/A076873/b076873.txt">Table of n, a(n) for n = 1..10000</a> %e A076873 n=5: 2+3+5+7+11 <= 29 = a(5). %p A076873 P:= [seq(ithprime(i),i=1..100)]: %p A076873 S:= ListTools:-PartialSums(P): %p A076873 map(s -> nextprime(s-1),S); # _Robert Israel_, Jul 04 2019 %t A076873 If[PrimeQ[#],#,NextPrime[#]]&/@Accumulate[Prime[Range[50]]] (* _Harvey P. Dale_, Feb 04 2011 *) %Y A076873 Cf. A007504, A007918. %K A076873 nonn %O A076873 1,1 %A A076873 _Reinhard Zumkeller_, Nov 27 2002