OFFSET
1,4
MATHEMATICA
d[n_] := (e = IntegerExponent[n, 2]) * DivisorSigma[0, n/2^e]; Accumulate@ Array[d, 100] (* Amiram Eldar, Apr 07 2023 *)
PROG
(Python)
from math import isqrt
def A362059(n): return -(q:=isqrt(m:=n>>1))**2+(sum(m//k for k in range(1, q+1))<<1) # Chai Wah Wu, Apr 26 2023
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Omar E. Pol, Apr 06 2023
STATUS
approved