OFFSET
1,2
COMMENTS
REFERENCES
József Sándor, Dragoslav S. Mitrinovic, Borislav Crstici, Handbook of Number Theory I, Springer Science & Business Media, 2005, Chapter II, page 73.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Aleksandar Ivić, On the number of abelian groups of a given order and on certain related multiplicative functions, Journal of Number Theory, Vol. 16, No. 1 (1983), pp. 119-137.
FORMULA
x * log(log(x))/log(x) << N(x) << x / log(x)^(1-eps) for every 0 < eps < 1, where N(x) is the number of terms not exceeding x (Ivić, 1983).
MATHEMATICA
Select[Range[250000], DivisorSigma[0, #] == FiniteAbelianGroupCount[#] &]
PROG
(PARI) is(n) = {my(e = factor(n)[, 2]); vecprod(apply(x -> x+1, e)) == vecprod(apply(numbpart, e)); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jan 15 2024
STATUS
approved