OFFSET
1,2
FORMULA
Conjecture: Lim_{n->oo} a(n)/10^n = 0.125... is the density of infinitary abundant numbers.
EXAMPLE
Below 10^2 there are 12 infinitary abundant numbers, 24, 30, 40, 42, 54, 56, 66, 70, 72, 78, 88, and 96, thus a(2) = 12.
MATHEMATICA
fun[p_, e_] := Module[{ b = IntegerDigits[e, 2]}, m=Length[b]; Product[If[b[[j]] > 0, 1+p^(2^(m-j)), 1], {j, 1, m}]]; isigma[1]=1; isigma[n_] := Times @@ fun @@@ FactorInteger[n]; c = 0; k = 1; seq={}; Do[ While[ k < 10^n, If[ isigma[k]>2k, c++ ]; k ++]; AppendTo[seq, c], {n, 1, 5}]; seq
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Apr 30 2019
EXTENSIONS
a(11) from Amiram Eldar, Sep 09 2022
STATUS
approved