OFFSET
1,1
COMMENTS
Partial sums of A002036. - Robert Israel, Jul 05 2015
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 1000: # to get a(1) to a(N)
M:= ithprime(N):
Primes:= select(isprime, [2, seq(2*i+1, i=1..(M-1)/2)]):
A002036:= map(t -> round(t/log(t)), Primes):
ListTools:-PartialSums(%); # Robert Israel, Jul 05 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jorge Coveiro, Apr 15 2004
STATUS
approved