OFFSET
1,1
COMMENTS
Partial sums of A007445.
FORMULA
G.f.: (1/(1 - x)) * Sum_{k>=1} prime(k) * x^k / (1 - x^k).
MATHEMATICA
Table[Sum[Floor[n/k] Prime[k], {k, n}], {n, 50}]
PROG
(PARI) a(n) = sum(k=1, n, (n\k)*prime(k)); \\ Michel Marcus, Mar 31 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 31 2020
STATUS
approved