This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A182219 #10 Apr 19 2012 17:41:25
%S A182219 1,2,3,7,39,110,181,252,323,394,465,1001,9545,27634,45723,63812,81901,
%T A182219 99990,118079,136168,154257,172346,190435,398959,5394991,15786014,
%U A182219 26177037,36568060,46959083,57350106,67741129,78132152,88523175,98914198,109305221,119696244
%N A182219 Where A024573 becomes a record.
%t A182219 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 A182219 Cf. A024573.
%K A182219 easy,nonn
%O A182219 1,2
%A A182219 _Robert G. Wilson v_, Apr 19 2012