OFFSET
1,2
COMMENTS
The least number m such that A168512(m)/m > k, for k = 2, 3, ... is 4, 120, 27720, 122522400, ...
MATHEMATICA
s[n_] := 1 + DivisorSum[n, #*IntegerExponent[n, #] &, # > 1 &]; seq = {}; sm = 0; Do[s1 = s[n]/n; If[s1 > sm, sm = s1; AppendTo[seq, n]], {n, 1, 100000000}]; seq (* after Michael De Vlieger at A168512 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 19 2019
STATUS
approved