OFFSET
1,2
COMMENTS
Analogous to superabundant numbers (A004394) with bi-unitary sigma (A188999) instead of sigma (A000203).
The least bi-unitary k-abundant number (bsigma(m)/m > k*m) for k = 1, 2, ... is 1, 24, 480, 83160, 294053760. - Amiram Eldar, Dec 05 2018
MATHEMATICA
fun[p_, e_]:=If[OddQ[e], (p^(e+1)-1)/(p-1), (p^(e+1)-1)/(p-1)-p^(e/2)]; bsigma[n_] := If[n==1, 1, Times @@ (fun @@@ FactorInteger[n])]; a = {}; rmax = 0; Do[r = bsigma[n]/n; If[r > rmax, AppendTo[a, n]; rmax = r], {n, 1000}]; a
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Sep 27 2017
EXTENSIONS
a(14)-a(22) from Amiram Eldar, Dec 06 2018
STATUS
approved