OFFSET
1,2
COMMENTS
Numbers n such that n^(1/m) is closer to e than for previous n. m is given by the Floor/Ceiling of Log[n].
Each group of entries exceed the previous group by e^k where k is an integer.
EXAMPLE
e-1^1 > e-2^1 > 3^1-e > e-6^(1/2) > e-7^(1/2) > e-19^(1/3) > e-20^(1/3) > ...
MATHEMATICA
ls = {}; mx = 1; Do[mn = Min[Abs[{n^(1/Floor[Log[n]]) - E, E - n^(1/Ceiling[Log[n]])}]]; If[mn < mx, mx = mn; AppendTo[ls, {n, mx}]], {n, 3, 500000}]; N[ls] // TableForm
CROSSREFS
KEYWORD
nonn
AUTHOR
Carlos Alves, Jan 24 2003
EXTENSIONS
Edited and extended by Robert G. Wilson v, Jan 24 2003
STATUS
approved