OFFSET
1,2
COMMENTS
The corresponding record values are 1, 2, 3, 4, 6, 8, 9, 12, 18, 24, 27, 36, 48, 54, ...
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..200
MATHEMATICA
recDivNum[1] = 1; recDivNum[n_] := recDivNum[n] = Times @@ (1 + recDivNum/@ (Last /@ FactorInteger[n])); rm = 0; s = {}; Do[r = recDivNum[n]; If[r > rm, rm = r; AppendTo[s, n]], {n, 1, 10^4}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 10 2020
STATUS
approved