OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3)=20; for n=20 the sum of divisors is 42; number of divisors is 6; 42/6=7. The quotient 7 is the mean divisor and this is the first time that 7 has occurred.
MATHEMATICA
(Select[{Mean[Divisors[#]], #}& /@ Select[Range[300], CompositeQ], IntegerQ[#[[1]]]&] // Sort // Split[#, #1[[1]] == #2[[1]]&]&)[[All, 1]][[All, 2]] // Sort (* Jean-François Alcover, Oct 31 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Title clarified by Sean A. Irvine, Jul 03 2021
STATUS
approved