OFFSET
1,1
COMMENTS
Of the first 10^4 unitary admirable numbers only 6 are odd.
a(21) > 6*10^10.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..43 (terms < 10^13)
MATHEMATICA
usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); uadmQ[n_] := (ab = usigma[n] - 2 n) > 0 && EvenQ[ab] && ab/2 < n && Divisible[n, ab/2] && CoprimeQ[2*n/ab, ab/2]; s = {}; Do[If[uadmQ[n], AppendTo[s, n]], {n, 1, 10^6, 2}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 07 2019
EXTENSIONS
Data corrected by Amiram Eldar, May 12 2020
Terms a(21) and beyond from Giovanni Resta, May 12 2020
STATUS
approved