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