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

Comments

Subsequence of A307866.

Links

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

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

Crossrefs

Cf. A004394, A163272, A307866.

Sequence in context: A245213 A270308 A271329 * A099943 A118218 A242186

Adjacent sequences: A307864 A307865 A307866 * A307868 A307869 A307870

Keyword

nonn

Author

Amiram Eldar, May 02 2019

Status

approved