%I #10 Apr 19 2012 17:41:25
%S 1,2,3,7,39,110,181,252,323,394,465,1001,9545,27634,45723,63812,81901,
%T 99990,118079,136168,154257,172346,190435,398959,5394991,15786014,
%U 26177037,36568060,46959083,57350106,67741129,78132152,88523175,98914198,109305221,119696244
%N Where A024573 becomes a record.
%t f[n_] := Floor[1/FractionalPart[n*E]]; k = 1; mx = 0; lst = {}; While[k < 10^10/3, a = f@ k; If[a > mx, AppendTo[lst, k]; Print[{k, a}]]; k++]; lst
%Y Cf. A024573.
%K easy,nonn
%O 1,2
%A _Robert G. Wilson v_, Apr 19 2012