OFFSET
1,2
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..108
EXAMPLE
MATHEMATICA
Union@ FoldList[Max, Table[Count[Range[n], _?(PowerMod[n, Floor@ Log2@ n, #] == 0 &)] - 2 DivisorSigma[0, n], {n, 10^3}]]
CROSSREFS
KEYWORD
sign
AUTHOR
Michael De Vlieger, Feb 26 2018
STATUS
approved