A024927 a(n) = Sum_{k=1..n} k*floor( prime(k)/k ).

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

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

Sequence in context: A369581 A146156 A304916 * A018077 A114347 A293684

Adjacent sequences: A024924 A024925 A024926 * A024928 A024929 A024930

Keyword

nonn

Author

Clark Kimberling

Status

approved