login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 62nd year, we have over 390,000 sequences, and we’ve reached 12,000 citations (which often say “discovered thanks to the OEIS”).

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: A390918 A119405 A032733 * A049547 A049577 A353153
KEYWORD
nonn
AUTHOR
STATUS
approved