|
%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
|
