OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
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
KEYWORD
easy,nonn
AUTHOR
Detlef Pauly (dettodet(AT)yahoo.de)
STATUS
approved