OFFSET
1,84
COMMENTS
Number of divisors d of n with sigma(d) = 2*d (sigma = A000203).
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Perfect Number.
Wikipedia, Perfect number.
FORMULA
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A335118 = 0.2045201... . - Amiram Eldar, Dec 31 2023
EXAMPLE
MATHEMATICA
a[n_] := DivisorSum[n, 1 &, DivisorSigma[-1, #] == 2 &]; Array[a, 100] (* Amiram Eldar, Dec 31 2023 *)
PROG
(Haskell)
a080225 n = length [d | d <- takeWhile (<= n) a000396_list, mod n d == 0]
-- Reinhard Zumkeller, Jan 20 2012
(PARI) a(n) = sumdiv(n, d, sigma(d, -1) == 2); \\ Amiram Eldar, Dec 31 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 07 2003
STATUS
approved