OFFSET
0,5
COMMENTS
Partial sums of A001877.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
MATHEMATICA
Table[Sum[Floor[n/(5k+2)], {k, 0, n}], {n, 0, 80}] (* Harvey P. Dale, Dec 08 2022 *)
PROG
(PARI) a(n)=sum(k=0, n\5, (n\(5*k+2)))
(Maxima) A218445[n]:=sum(floor(n/(5*k+2)), k, 0, n)$
makelist(A218445[n], n, 0, 80); /* Martin Ettl, Oct 29 2012 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Oct 28 2012
STATUS
approved