A024928 a(n) = Sum_{k=1..n} floor( (n + prime(k))/k ).

3, 6, 10, 14, 20, 24, 30, 34, 41, 46, 54, 59, 70, 76, 82, 88, 96, 102, 110, 115, 124, 131, 139, 147, 156, 162, 170, 179, 192, 197, 209, 219, 228, 236, 246, 253, 265, 271, 280, 288, 299, 305, 316, 323, 332, 341, 352, 358, 370, 377, 385, 392, 406, 413, 425, 431, 440, 449, 462

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

f:= proc(n) local k; add(floor((n+ithprime(k))/k), k=1..n) end proc:
map(f, [$1..100]); # Robert Israel, Apr 22 2026

Prog

(PARI) a(n) = sum(k=1, n, floor((n+prime(k))/k)) \\ Michel Marcus, Mar 23 2013

Crossrefs

Cf. A000040.

Sequence in context: A390562 A310071 A330259 * A330257 A079552 A334454

Adjacent sequences: A024925 A024926 A024927 * A024929 A024930 A024931

Keyword

nonn

Author

Clark Kimberling

Status

approved