A202301 - OEIS

%I #28 Dec 19 2020 10:35:23

%S 3,7,11,19,29,43,59,79,101,131,163,199,239,283,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,4889

%N Next prime after the partial sum of the first n primes.

%H Alois P. Heinz, <a href="/A202301/b202301.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = A151800(A007504(n)). - _R. J. Mathar_, Jan 29 2012 [corrected by _Georg Fischer_, Dec 19 2020]

%p A007504 := proc(n)

%p         add( ithprime(k),k=1..n) ;

%p end proc:

%p A202301 := proc(n)

%p         nextprime(A007504(n)) ;

%p end proc:

%p seq(A202301(n),n=1..20) ; # _R. J. Mathar_, Jan 29 2012

%t s = 0; Table[s = s + Prime[n]; NextPrime[s], {n, 100}] (* _T. D. Noe_, Apr 10 2012 *)

%t NextPrime[#]&/@Accumulate[Prime[Range[50]]] (* _Harvey P. Dale_, Feb 01 2015 *)

%Y Cf. A007504, A151800.

%K nonn

%O 1,1

%A _Yalcin Aktar_, Jan 11 2012