login
A024927
a(n) = Sum_{k=1..n} k*floor( prime(k)/k ).
1
2, 4, 7, 11, 21, 33, 47, 63, 81, 101, 123, 159, 198, 240, 285, 333, 384, 438, 495, 555, 618, 684, 753, 825, 900, 978, 1059, 1143, 1230, 1320, 1444, 1572, 1704, 1840, 1980, 2124, 2272, 2424, 2580, 2740, 2904, 3072, 3244, 3420, 3600, 3784, 3972, 4164, 4360, 4560, 4764, 4972
OFFSET
1,1
LINKS
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
Sequence in context: A369581 A146156 A304916 * A018077 A114347 A293684
KEYWORD
nonn
STATUS
approved