A225422 Largest number k such that k < d(k)^(n/10), where d(k) is the number of divisors of k.
2, 2, 6, 12, 12, 24, 60, 180, 360, 1260, 5040, 15120, 55440, 166320, 831600, 4324320, 36756720, 367567200, 2327925600, 27935107200
Offset: 11
Keywords
Programs
-
Mathematica
Table[last = 0; Do[If[n < DivisorSigma[0,n]^(i/10), last = n], {n, 10^4}]; last, {i, 11, 20}]
Comments