OFFSET
1,1
COMMENTS
See A353615 for more details.
MATHEMATICA
With[{m = 20}, t = Table[DivisorSigma[-1, n], {n, 1, 2^m + 1}]; Denominator @ Table[Median[t[[1 ;; 2^n + 1]]], {n, 1, m}]]
CROSSREFS
KEYWORD
nonn,frac,more
AUTHOR
Amiram Eldar, Apr 30 2022
STATUS
approved