OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
1428 is in the sequence since both 1428 and 1430 are unitary abundant: usigma(1428) = 2880 > 2*1428 and usigma(1430) = 3024 > 2*1430.
MATHEMATICA
usigma[n_]:=If[n==1, 1, Times @@ (1+Power @@@ FactorInteger[n])];
uaQ[n_] := usigma[n] > 2 n; Select[Range@100000, uaQ[#] && uaQ[# + 2] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 21 2017
STATUS
approved