login
A111632
Increasingly larger values in A110412.
0
1, 2, 3, 5, 17, 22, 26, 401, 626, 730, 1025, 1813, 4925, 7572, 19053, 28925, 51996, 115625, 175208, 374560, 435825, 687500, 978144, 1333976, 1346072, 2600466, 2867085, 4509012, 5146875, 8948550
OFFSET
1,2
COMMENTS
The last to appear is 1,2,3,5,8,9,10,11,15,18,19,21,22,25,30,34,42,45,46,58,69,70,81,90,126,133,158,202,276,465,...,.
MATHEMATICA
f[n_] := Plus @@ (DivisorSigma[0, n - # ] & /@ Most[Divisors[n]]); t = Table[0, {1000}]; Do[a = f[n]; If[a < 1000 && t[[a + 1]] == 0, t[[a + 1]] = n; Print[{a, n}]], {n, 10^6}]
CROSSREFS
Cf. A110412.
Sequence in context: A249410 A119405 A032733 * A049547 A049577 A353153
KEYWORD
nonn
AUTHOR
STATUS
approved