OFFSET
1,7
FORMULA
Sum_{k=1..n} (ceiling(n/k) - round(n/k)). - Vladeta Jovovic, Mar 01 2004
PROG
(Magma) [&+[(Ceiling(n/k)-Round(n/k)): k in [1..n]]: n in [1..80]]; // Vincenzo Librandi, Jul 30 2017
(PARI) a(n) = sum(k=1, n, f = frac(n/k); f && (f < 1/2)); \\ Michel Marcus, Jul 30 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Sep 28 2002
STATUS
approved