OFFSET
1,5
MATHEMATICA
Table[Sum[PrimePi[k - 1] (Ceiling[n/k] - Floor[n/k]), {k, 2, n}], {n, 100}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Jan 01 2024
STATUS
approved