This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A307823 #6 May 07 2019 15:19:15 %S A307823 0,5,75,812,8079,81052,808477,8097357,80939927,809350234 %N A307823 The number of nonunitary abundant numbers below 10^n. %F A307823 Conjecture: Lim_{n->oo} a(n)/10^n = 0.0809... is the density of nonunitary abundant numbers. %e A307823 Below 10^2 there are 5 nonunitary abundant numbers, 36, 48, 72, 80, and 96, thus a(2) = 5. %t A307823 usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); nusigma[n_] := DivisorSigma[1, n] - usigma[n]; c = 0; k = 1; seq={}; Do[ While[ k < 10^n, If[ nusigma[k]>k, c++ ]; k ++]; AppendTo[seq, c], {n, 1, 5}]; seq %Y A307823 Cf. A048146, A064597, A302992, A302993, A302994, A307820, A307821. %K A307823 nonn,more %O A307823 1,2 %A A307823 _Amiram Eldar_, Apr 30 2019