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

3, 7, 11, 19, 29, 43, 59, 79, 101, 131, 163, 199, 239, 283, 331, 383, 443, 503, 569, 641, 719, 797, 877, 967, 1061, 1163, 1277, 1373, 1481, 1597, 1721, 1861, 1993, 2129, 2281, 2437, 2591, 2749, 2917, 3089, 3271, 3449, 3643, 3833, 4049, 4229, 4441, 4663, 4889

Offset

1,1

Links

Alois P. Heinz, Table of n, a(n) for n = 1..1000

Formula

a(n) = A151800(A007504(n)). - R. J. Mathar, Jan 29 2012 [corrected by Georg Fischer, Dec 19 2020]

Maple

A007504 := proc(n)
        add( ithprime(k), k=1..n) ;
end proc:
A202301 := proc(n)
        nextprime(A007504(n)) ;
end proc:
seq(A202301(n), n=1..20) ; # R. J. Mathar, Jan 29 2012

Mathematica

s = 0; Table[s = s + Prime[n]; NextPrime[s], {n, 100}] (* T. D. Noe, Apr 10 2012 *)
NextPrime[#]&/@Accumulate[Prime[Range[50]]] (* Harvey P. Dale, Feb 01 2015 *)

Crossrefs

Cf. A007504, A151800.

Sequence in context: A126254 A092102 A158722 * A339974 A123080 A161387

Adjacent sequences: A202298 A202299 A202300 * A202302 A202303 A202304

Keyword

nonn

Author

Yalcin Aktar, Jan 11 2012

Status

approved