OFFSET
1,2
COMMENTS
The number of exponential divisors of n^2 is A390555(n).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A051377(n^2).
Multiplicative with a(p^e) = Sum_{d | (2*e)} p^d.
Sum_{k=1..n} a(k) ~ c * n^3 / 3, where c = Product_{p prime} ((1-1/p) * (1 + Sum_{k>=1} p^(2*k-1)/(p^(6*k-3) - 1) + Sum_{k>=1} p^(2*k)/(p^(3*k) - 1))) = 1.39919293179391004774... .
MATHEMATICA
f[p_, e_] := DivisorSum[2*e, p^# &]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100]
PROG
(PARI) a(n) = {my(f = factor(n)); prod(i=1, #f~, sumdiv(2 * f[i, 2], d, f[i, 1]^d)); }
CROSSREFS
KEYWORD
nonn,mult,easy
AUTHOR
Amiram Eldar, Nov 10 2025
STATUS
approved
