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,2

Links

Table of n, a(n) for n=1..25.

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

Adjacent sequences: A101259 A101260 A101261 * A101263 A101264 A101265

Keyword

nonn

Author

Carlos Alves, Jan 23 2005

Extensions

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

Status

approved