OFFSET
1,1
COMMENTS
Alternatively, we could write k^5 < d(k)^11. The last odd number is a(23) = 45.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..155 (complete sequence)
MATHEMATICA
t = {}; Do[If[n < DivisorSigma[0, n]^(22/10), AppendTo[t, n]], {n, 10^5}]; t
Select[Range[250], #<DivisorSigma[0, #]^(22/10)&] (* Harvey P. Dale, Apr 10 2024 *)
PROG
(PARI) for (k=2, 20000, if (k^5 < numdiv(k)^11, print1(k, ", "))) \\ Hugo Pfoertner, Apr 25 2023
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
T. D. Noe, May 14 2013
STATUS
approved