|
%I #10 Feb 09 2014 04:39:24
%S 1,2,4,5,6,10,16,21,85,115,118,136,169,177,346,1272,2624,8823,12504,
%T 13863,36507,51099,63179,111473,143325,153014,255220,476129
%N Exp(n) is further from an integer than any previous exp(k) for 1 <= k < n.
%e Exp(4) = 54.59815... is closer to an integer than exp(2) = 7.389056... but not exp(3) = 20.085536...
%e The discrepancy at 111473 is 0.499991807891326554242475...
%t a = 0; Do[ d = Abs[ Round[E^n] - N[E^n, Ceiling[ Log[10, E^n] + 10]]]; If[d > a, Print[n]; a = d], {n, 1, 1000000}]
%Y Cf. A079490.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jan 20 2003
%E a(25)-a(28) from _Martin Schlueter_, Feb 08 2014
|
