OFFSET
1,2
FORMULA
Limit_{n->oo} a(n)/10^n = 0.2476... is the density of abundant numbers (A302991).
MATHEMATICA
abQ[n_]:=DivisorSigma[1, n]>2n; c = 0; k = 1; seq={}; Do[ While[ k < 10^n, If[ abQ[k], c++ ]; k ++]; AppendTo[seq, c], {n, 1, 5}]; seq
PROG
(PARI) a(n) = sum(k=1, 10^n-1, sigma(k) > 2*k); \\ Michel Marcus, Apr 17 2018
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Apr 17 2018
EXTENSIONS
a(10) from Daniel Suteu, Apr 22 2018
a(11)-a(17) from Hiroaki Yamanouchi, Aug 03 2018
STATUS
approved