OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[n*Floor[Prime[n]/n], {n, 60}]//Accumulate (* Harvey P. Dale, Jan 06 2019 *)
PROG
(PARI) a(n) = sum(k=1, n, k*floor(prime(k)/k)) \\ Michel Marcus, Mar 23 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved