OFFSET
1,2
FORMULA
MATHEMATICA
a[n_] := Sum[i*Prime[i], {i, 1, n}]/Sum[Prime[i], {i, 1, n}];
Table[a[n] // Round, {n, 1, 64}];
PROG
(PARI) a(n) = round(sum(k=1, n, k*prime(k))/ sum(k=1, n, prime(k))); \\ Michel Marcus, May 22 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Andres Cicuttin, May 21 2016
STATUS
approved