A111632 Increasingly larger values in A110412.

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,...,.

Links

Table of n, a(n) for n=1..30.

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

Adjacent sequences: A111629 A111630 A111631 * A111633 A111634 A111635

Keyword

nonn

Author

Amarnath Murthy and Robert G. Wilson v, Aug 09 2005

Status

approved