OFFSET
1,1
COMMENTS
It appears Sum_{n=1..m} a(n) =~ c*sqrt(m)*(log(m) - log(log(m))^2), at c ~ 0.038, asymptotically, after examining m up to 10,000,000, with data intervals of 10,000. - Richard R. Forberg, Feb 10 2015
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
s = {}; Do[If[DivisorSigma[0, n] == Total[Times @@@ FactorInteger[n]], AppendTo[s, n]], {n, 2, 22000}]; s (* Amiram Eldar, Jun 22 2019 *)
PROG
(PARI) isok(n) = {my(f = factor(n)); sum(i=1, #f~, f[i, 1]*f[i, 2]) == numdiv(n); } \\ Michel Marcus, Feb 11 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 11 2003
STATUS
approved