This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A079663 #9 Sep 24 2013 00:41:41
%S A079663 1,2,3,6,7,19,20,148,403,1096,1097,2980,2981,8103,59874,162755,
%T A079663 1202603,1202604,3269017,8886110,8886111,24154952,24154953,65659969,
%U A079663 178482301,3584912846,9744803446,26489122130,72004899337,195729609428
%N A079663 Sequence of the radicands that give the best radical approach to e.
%C A079663 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].
%C A079663 Each group of entries exceed the previous group by e^k where k is an integer.
%e A079663 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) > ...
%t A079663 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
%Y A079663 Cf. A004791, A080021.
%K A079663 nonn
%O A079663 1,2
%A A079663 _Carlos Alves_, Jan 24 2003
%E A079663 Edited and extended by _Robert G. Wilson v_, Jan 24 2003