A225734 Numbers n such that n < d(n)^(26/10), where d(n) is the number of divisors of n.
2, 3, 4, 5, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 26, 27, 28, 30, 32, 33, 34, 35, 36, 40, 42, 44, 45, 48, 50, 52, 54, 56, 60, 63, 64, 66, 68, 70, 72, 75, 76, 78, 80, 84, 88, 90, 92, 96, 98, 99, 100, 102, 104, 105, 108, 110, 112, 114, 120, 126, 128
Offset: 1
Links
- T. D. Noe, Table of n, a(n) for n = 1..2046 (complete sequence)
Crossrefs
Programs
-
Mathematica
t = {}; Do[If[n < DivisorSigma[0, n]^(26/10), AppendTo[t, n]], {n, 10^7}]; t
Comments