login
A101262
Records in the sequence A024573 defined by [1/{n*e}], {x} := x - [x].
0
1, 2, 6, 35, 76, 90, 110, 142, 198, 328, 952, 9067, 18996, 20991, 23456, 26575, 30652, 36205, 44217, 56781, 79321, 131533, 384870, 5202154, 10762714
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
Cf. A024573.
Sequence in context: A224913 A327038 A228931 * A135965 A018983 A279736
KEYWORD
nonn
AUTHOR
Carlos Alves, Jan 23 2005
EXTENSIONS
a(20)-a(26) from Robert G. Wilson v, Jan 24 2005
STATUS
approved