OFFSET
1,2
COMMENTS
The corresponding record values are 0, 2, 6, 8, 14, 24, 30, 41, 56, 62, 105, 120, 140, 144, 233, 246, 248, 348, 489, 630, 764, 840, ...
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..500
MATHEMATICA
usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); nusigma[n_] := DivisorSigma[1, n] - usigma[n]; num = -1; s = {}; Do[nu = nusigma[n]; If[nu > num, num = nu; AppendTo[s, n]], {n, 1, 10^4}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 23 2019
STATUS
approved