A307867 Numbers m such that K(m)/m > K(j)/j for all j < m, where K(m) is the Kalmár function (A074206).

1, 72, 96, 144, 240, 288, 480, 576, 720, 1152, 1440, 2880, 4320, 5760, 8640, 11520, 17280, 34560, 51840, 69120, 103680, 138240, 207360, 241920, 311040, 345600, 362880, 414720, 483840, 622080, 725760, 829440, 967680, 1244160, 1451520, 1935360, 2073600, 2419200

Offset: 1

Author

Amiram Eldar, May 02 2019

Keywords

• nonn

Comments

Subsequence of A307866.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..393

Crossrefs

Cf. A004394, A163272, A307866.

Programs

Mathematica

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