OFFSET
1,2
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
Ilya Gutkovskiy, Scatter plot of a(n) up to n=50000.
Vaclav Kotesovec, Graph - the asymptotic ratio (10000 terms)
FORMULA
a(p^k) = (p + 1)*(k + 1) where p is a prime and k > 0.
Dirichlet g.f.: zeta(s)^2 * Product_{p prime} (1 + 2/p^(s-1) - 1/p^(2*s-1)). - Amiram Eldar, Sep 17 2023
From Vaclav Kotesovec, May 06 2025: (Start)
Let f(s) = Product_{p prime} (p^s-p)^2 * (p^(2*s)+2*p^(s+1)-p) / (p^(2*s) * (p^s-1)^2).
Dirichlet g.f.: zeta(s-1)^2 * f(s).
Sum_{k=1..n} a(k) ~ ((2*log(n) + 4*gamma - 1)*f(2) + 2*f'(2)) * n^2/4, where
f(2) = A065463 = Product_{p prime} (1 - 1/(p*(p+1))) = 0.704442200999165592736603350326637210188586431417098049414226842591...,
f'(2) = f(2) * Sum_{p prime} 2*(2*p^2-1)*log(p) / ((p^2-1)*(p^2+p-1)) = f(2) * 1.799151495460164053607059266860868724519705035904425832307664926571...
and gamma is the Euler-Mascheroni constant A001620. (End)
EXAMPLE
a(36) = a(2^2*3^2) = (2 + 1)*(2 + 1) * (3 + 1)*(2 + 1) = 108.
MATHEMATICA
a[n_] := Times @@ ((#[[1]] + 1) (#[[2]] + 1) & /@ FactorInteger[n]); a[1] = 1; Table[a[n], {n, 68}]
Table[DivisorSigma[0, n] Total[Select[Divisors[n], SquareFreeQ]], {n, 68}]
PROG
(PARI) a(n)={numdiv(n)*sumdiv(n, d, moebius(d)^2*d)} \\ Andrew Howroyd, Jul 24 2018
CROSSREFS
KEYWORD
nonn,easy,mult
AUTHOR
Ilya Gutkovskiy, May 12 2018
STATUS
approved
