A022094 Sum of first prime(n) primes.

5, 10, 28, 58, 160, 238, 440, 568, 874, 1480, 1720, 2584, 3266, 3638, 4438, 5830, 7418, 7982, 9854, 11240, 11966, 14288, 15968, 18650, 22548, 24680, 25800, 28104, 29296, 31734, 41022, 43940, 48494

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Formula

a(n) = A007504(A000040(n)). - Robert Israel, Jan 13 2019

Maple

[ seq(sum(ithprime(k), k=1..ithprime(i)), i=1..100) ];
# Alternative:
Primes:= select(isprime, [2, seq(i, i=3..10^4, 2)]):
L:= ListTools:-PartialSums(Primes):
seq(L[Primes[i]], i=1..numtheory:-pi(nops(Primes))); # Robert Israel, Jan 13 2019

Mathematica

a[n_]:=Sum[Prime[k], {k, 1, Prime[n]}]; Array[a, 50] (* Stefano Spezia, Jan 14 2019 *)

Crossrefs

Cf. A000040, A007504 (sum of first n primes).

Sequence in context: A218466 A277825 A054298 * A134129 A240515 A105862

Adjacent sequences: A022091 A022092 A022093 * A022095 A022096 A022097

Keyword

easy,nonn

Author

Detlef Pauly (dettodet(AT)yahoo.de)

Status

approved