reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Sum_{k=1..n} a(k) = n*log(n)/10 + c*n + O(n^(1/3)*log(n)), where c = (2*gamma - 1 - log(10))/10 = -0.214815..., where and gamma is Euler's constant (A001620) (Smith and Subbarao, 1981). - Amiram Eldar, Dec 30 2023
R. A. Smith and M. V. Subbarao, <a href="https://doi.org/10.4153/CMB-1981-005-3">The average number of divisors in an arithmetic progression</a>, Canadian Mathematical Bulletin, Vol. 24, No. 1 (1981), pp. 37-41.
a[n_] := If[Divisible[n, 10], DivisorSigma[0, n/10], 0]; Array[a, 100] (* Amiram Eldar, Dec 30 2023 *)
Sum_{k=1..n} a(k) = n*log(n)/10 + c*n + O(n^(1/3)*log(n)), where c = (2*gamma - 1 - log(10))/10 = -0.214815..., where gamma is Euler's constant (A001620) (Smith and Subbarao, 1981). - Amiram Eldar, Dec 30 2023
nonn,easy
approved
editing
proposed
approved
editing
proposed