|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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 (from Robert G. Wilson v Jan 24 2005)
|
|
|
CROSSREFS
| Cf. A024573.
Sequence in context: A181082 A118186 A075272 * A135965 A018983 A081003
Adjacent sequences: A101259 A101260 A101261 * A101263 A101264 A101265
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Carlos Alves (cjsalves(AT)gmail.com), Jan 23 2005
|
|
|
EXTENSIONS
| a(20)-a(26) from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 24 2005
|
| |
|
|
