OFFSET
1,1
EXAMPLE
sigma(1) + ... + sigma(4) = 15 and k = 10 is the least positive integer such that sigma(k) > 15. Hence a(4) = 10.
MATHEMATICA
s = 0; a = {}; For[i = 1, i <= 100, i++, s = s + DivisorSigma[1, i]; k = 1; While[DivisorSigma[1, k] <= s, k = k + 1]; a = Append[a, k]]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Dec 08 2002
STATUS
approved