login
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
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
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
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 02 2019
STATUS
approved