OFFSET
0,2
COMMENTS
a(16) = 393475036, but a(15) is larger than that, thus the sequence is nonmonotonic.
MATHEMATICA
With[{s = Array[IntegerExponent[1 + #/2^IntegerExponent[#, 2], 3] &@ DivisorSigma[1, #] &, 10^6]}, Array[FirstPosition[s, #][[1]] &, Max[s] + 1, 0]] (* Michael De Vlieger, Feb 22 2021 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Antti Karttunen and David A. Corneth, Aug 18 2020
STATUS
approved