OFFSET
1,2
MATHEMATICA
lst = {}; a = 0; Do[ b = Floor[1/(n E - Floor[n E])]; If[b > a, AppendTo[ lst, b]; a = b; Print[{n, b}]], {n, 10^7}]; lst (* Robert G. Wilson v, Jan 24 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Carlos Alves, Jan 23 2005
EXTENSIONS
a(20)-a(26) from Robert G. Wilson v, Jan 24 2005
STATUS
approved