OFFSET
1,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
N:= 100: # for a(1)..a(N)
Primes:= map(ithprime, [$1..N]):
S1:= ListTools:-PartialSums(Primes):
S2:= ListTools:-PartialSums(zip(`*`, Primes, [$1..N])):
map(numer, zip(`/`, S2, S1)); # Robert Israel, Apr 07 2019
MATHEMATICA
a[n_]:=Sum[i*Prime[i], {i, 1, n}]/Sum[Prime[i], {i, 1, n}];
Table[a[n]//Numerator, {n, 1, 40}]
PROG
(PARI) a(n) = numerator(sum(i=1, n, i*prime(i))/sum(i=1, n, prime(i))); \\ Michel Marcus, Mar 15 2019
CROSSREFS
KEYWORD
AUTHOR
Andres Cicuttin, Mar 12 2019
STATUS
approved