A225736 Numbers n such that n < d(n)^(28/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, 38, 39, 40, 42, 44, 45, 46, 48, 50, 52, 54, 56, 60, 63, 64, 66, 68, 70, 72, 75, 76, 78, 80, 81, 84, 88, 90, 92, 96, 98, 99, 100, 102, 104, 105, 108, 110, 112, 114
Offset: 1
Links
- T. D. Noe, Table of n, a(n) for n = 1..9372 (complete sequence)
Crossrefs
Programs
-
Mathematica
t = {}; Do[If[n < DivisorSigma[0, n]^(28/10), AppendTo[t, n]], {n, 10^7}]; t
Comments