OFFSET
1,1
COMMENTS
Most unitary abundant numbers are squarefree. For example, there are 70030 unitary abundant numbers below 10^6, and only 14685 are nonsquarefree.
The odd terms of this sequence are A129486.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
usigma[n_]:=If[n==1, 1, Times @@ (1 + Power @@@ FactorInteger[n])];
aQ[n_]:=!SquareFreeQ[n] && usigma[n] > 2 n; Select[Range[10^4], aQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 21 2017
STATUS
approved