cp's OEIS Frontend

A202301 Next prime after the partial sum of the first n primes.

%I A202301 #28 Dec 19 2020 10:35:23
%S A202301 3,7,11,19,29,43,59,79,101,131,163,199,239,283,331,383,443,503,569,
%T A202301 641,719,797,877,967,1061,1163,1277,1373,1481,1597,1721,1861,1993,
%U A202301 2129,2281,2437,2591,2749,2917,3089,3271,3449,3643,3833,4049,4229,4441,4663,4889
%N A202301 Next prime after the partial sum of the first n primes.
%H A202301 Alois P. Heinz, <a href="/A202301/b202301.txt">Table of n, a(n) for n = 1..1000</a>
%F A202301 a(n) = A151800(A007504(n)). - _R. J. Mathar_, Jan 29 2012 [corrected by _Georg Fischer_, Dec 19 2020]
%p A202301 A007504 := proc(n)
%p A202301         add( ithprime(k),k=1..n) ;
%p A202301 end proc:
%p A202301 A202301 := proc(n)
%p A202301         nextprime(A007504(n)) ;
%p A202301 end proc:
%p A202301 seq(A202301(n),n=1..20) ; # _R. J. Mathar_, Jan 29 2012
%t A202301 s = 0; Table[s = s + Prime[n]; NextPrime[s], {n, 100}] (* _T. D. Noe_, Apr 10 2012 *)
%t A202301 NextPrime[#]&/@Accumulate[Prime[Range[50]]] (* _Harvey P. Dale_, Feb 01 2015 *)
%Y A202301 Cf. A007504, A151800.
%K A202301 nonn
%O A202301 1,1
%A A202301 _Yalcin Aktar_, Jan 11 2012