OFFSET
1,2
COMMENTS
Recursive definition: a(1)=1, a(n) = least number m>a(n-1) such that the fractional part of e^m is greater than the fractional part of e^k for all k, 1<=k<m.
The next such number must be greater than 100000. [Hieronymus Fischer, Jan 06 2009]
a(13) > 300,000. Robert Price, Mar 23 2019
FORMULA
Recursion: a(1):=1, a(k):=min{ m>1 | fract(e^m) > fract(e^a(k-1))}, where fract(x) = x-floor(x). [Hieronymus Fischer, Jan 06 2009]
EXAMPLE
a(2)=8, since fract(e^8)= 0.9579870417..., but fract(e^k)<=0.7182818... for 1<=k<=7;
thus fract(e^8)>fract(e^k) for 1<=k<8 and 8 is the minimal exponent > 1 with this property. [Hieronymus Fischer, Jan 06 2009]
MATHEMATICA
a = 0; Do[b = N[ FractionalPart[ N[ E, 2^12]^n], 24]; If[b > a, Print[n]; a = b], {n, 1, 9400}] (* Robert G. Wilson v, Mar 16 2004 *)
PROG
(PARI) E=exp(1); /* use sufficient precision! */
ym=0; for(i=1, 1000, x=E^i; y=x-floor(x); if(y>ym, print1(", "i); ym=y))
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jon Perry, Mar 04 2004
EXTENSIONS
a(8) from Robert G. Wilson v, Mar 16 2004
a(9)-a(11) from Hieronymus Fischer, Jan 06 2009
a(12) from Robert Price, Mar 23 2019
STATUS
approved