OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..307
MATHEMATICA
Select[Range[10^6], Divisible[(s = DivisorSigma[1, #]), #] && !Divisible[s, DivisorSigma[0, #]] &] (* Amiram Eldar, Dec 19 2019 *)
PROG
(Magma) [m: m in [1..10^5] | not IsIntegral(SumOfDivisors(m) / NumberOfDivisors(m)) and IsIntegral(SumOfDivisors(m) / m)]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Dec 17 2019
STATUS
approved