|
%I #10 May 07 2019 16:33:11
%S 1,72,96,144,240,288,480,576,720,1152,1440,2880,4320,5760,8640,11520,
%T 17280,34560,51840,69120,103680,138240,207360,241920,311040,345600,
%U 362880,414720,483840,622080,725760,829440,967680,1244160,1451520,1935360,2073600,2419200
%N Numbers m such that K(m)/m > K(j)/j for all j < m, where K(m) is the Kalmár function (A074206).
%C Subsequence of A307866.
%H Amiram Eldar, <a href="/A307867/b307867.txt">Table of n, a(n) for n = 1..393</a>
%t a[0] = 0; a[1] = 1; a[n_] := a[n] = Total[a /@ Most[Divisors[n]]]; am = -1; s={}; Do[a1 = a[n]/n; If[a1 > am, AppendTo[s, n]; am = a1], {n, 1, 10000}]; s
%Y Cf. A004394, A163272, A307866.
%K nonn
%O 1,2
%A _Amiram Eldar_, May 02 2019
|
