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 A307821 #15 Sep 02 2022 04:56:55 %S A307821 0,0,1,12,102,1045,10449,104365,1043641,10436775,104367354 %N A307821 The number of exponential abundant numbers below 10^n. %F A307821 Limit_{n->oo} a(n)/10^n = 0.001043673... is the density of exponential abundant numbers (see A129575). [Updated by _Amiram Eldar_, Sep 02 2022] %e A307821 Below 10^3 there is only one exponential abundant number, A129575(1) = 900, thus a(3) = 1. %t A307821 fun[p_, e_] := DivisorSum[e, p^# &]; esigma[1] = 1; esigma[n_] := Times @@ fun @@@ FactorInteger[n]; c = 0; k = 1; seq={}; Do[ While[ k < 10^n, If[ esigma[k]>2k, c++ ]; k ++]; AppendTo[seq, c], {n, 1, 5}]; seq %Y A307821 Cf. A051377, A129575, A302992, A302993, A302994, A307820, A307822, A307823. %K A307821 nonn,more %O A307821 1,4 %A A307821 _Amiram Eldar_, Apr 30 2019 %E A307821 a(11) from _Amiram Eldar_, Sep 02 2022