OFFSET
1,1
EXAMPLE
960 is the 3-digit number the sum of whose divisors (3048) is largest.
MATHEMATICA
a[n_] := Module[{mx=1}, For[k=10^(n-1), k<=10^n-1, k++, If[(t=DivisorSigma[1, k]) > mx, mx=t; kx=k]]; kx]; Array[a, 6] (* Stefano Spezia, Nov 07 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Dec 26 2001
EXTENSIONS
Corrected and extended by Vladeta Jovovic, Dec 29 2001
Offset corrected by Stefano Spezia, Nov 07 2024
STATUS
approved