OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
J. Wu, Problème de diviseurs exponentiels et entiers exponentiellement sans facteur carré, J. Theor. Nombr. Bordeaux 7 (1) (1995) 133-141.
FORMULA
a(n) ~ c * n, where c = A327837. - Amiram Eldar, Dec 08 2022
MATHEMATICA
f[p_, e_] := DivisorSigma[0, e]; ediv[n_] := Times @@ (f @@@ FactorInteger[n]); Accumulate[Array[ediv, 100]] (* Amiram Eldar, Jun 23 2019 *)
PROG
(PARI) d(n) = {my(f = factor(n)); prod(i = 1, #f~, numdiv(f[i, 2])); }
lista(nmax) = {my(s = 0); for(n = 1, nmax, s += d(n); print1(s, ", ")); } \\ Amiram Eldar, Dec 08 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek and N. J. A. Sloane, Mar 03 2009
STATUS
approved