OFFSET
1,2
MATHEMATICA
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
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Apr 19 2012
STATUS
approved