A333953 Recursively superabundant numbers: numbers m such that A330575(m)/m > A330575(k)/k for all k < m.
1, 2, 4, 6, 8, 12, 24, 36, 48, 72, 96, 120, 144, 240, 288, 360, 480, 576, 720, 1152, 1440, 2160, 2880, 4320, 5760, 8640, 11520, 17280, 25920, 30240, 34560, 51840, 60480, 69120, 103680, 120960, 172800, 181440, 207360, 241920, 345600, 362880, 414720, 483840, 725760
Offset: 1
Keywords
Links
- David A. Corneth, Table of n, a(n) for n = 1..213 (first 76 terms from Amiram Eldar)
- Thomas Fink, Recursively divisible numbers, arXiv:1912.07979 [math.NT], 2019. See section 5.
Programs
-
Mathematica
s[1] = 1; s[n_] := s[n] = n + DivisorSum[n, s[#] &, # < n &]; seq={}; rm = 0; Do[r1 = s[n]/n; If[r1 > rm, rm = r1; AppendTo[seq, n]], {n, 1, 10^4}]; seq
Comments