login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Increasingly larger values in A110412.
0

%I #5 Dec 05 2013 19:57:05

%S 1,2,3,5,17,22,26,401,626,730,1025,1813,4925,7572,19053,28925,51996,

%T 115625,175208,374560,435825,687500,978144,1333976,1346072,2600466,

%U 2867085,4509012,5146875,8948550

%N Increasingly larger values in A110412.

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

%t 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}]

%Y Cf. A110412.

%K nonn

%O 1,2

%A _Amarnath Murthy_ and _Robert G. Wilson v_, Aug 09 2005