A101262 Records in the sequence A024573 defined by [1/{n*e}], {x} := x - [x].

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

Author

Carlos Alves, Jan 23 2005

Keywords

• nonn

Crossrefs

Cf. A024573.

Programs

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 *)

Extensions

a(20)-a(26) from Robert G. Wilson v, Jan 24 2005