OFFSET
1,2
FORMULA
Conjecture: Lim_{n->oo} a(n)/10^n = 0.07... is the density of unitary abundant numbers.
MATHEMATICA
usigma[n_] := If[n == 1, 1, Times @@ (1 + Power @@@ FactorInteger[n])]; uabQ[n_] := usigma[n] > 2 n; c = 0; k = 1; seq={}; Do[While[k < 10^n, If[uabQ[k], c++]; k++]; AppendTo[seq, c], {n, 1, 5}]; seq
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Apr 17 2018
EXTENSIONS
a(10)-a(17) from Hiroaki Yamanouchi, Aug 03 2018
STATUS
approved