OFFSET
1,2
COMMENTS
The corresponding record values are 1, 3, 4, 6, 7, 10, 14, 15, 17, 20, 22, 24, ... (see the link for more values).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..651
Amiram Eldar, Table of n, a(n), A160097(a(n)) for n = 1..651
MATHEMATICA
f1[p_, e_] := e + 1; f2[p_, e_] := DivisorSigma[0, e]; ned[1] = 1; ned[n_] := Times @@ f1 @@@ (f = FactorInteger[n]) - Times @@ f2 @@@ f; dm = -1; s = {}; Do[If[(d = ned[n]) > dm, dm = d; AppendTo[s, n]], {n, 1, 10^6}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 26 2021
STATUS
approved