OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
mx = 0; t = {}; Do[u = DivisorSum[n, # &, PrimePowerQ[#] &]; If[u > mx, mx = u; AppendTo[t, n]], {n, 8500000}]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 14 2017
STATUS
approved