|
%I #14 Feb 18 2015 10:59:00
%S 1,2,1,3,2,1,4,3,2,5,1,4,3,6,2,5,1,4,7,3,6,2,5,8,1,4,7,3,6,9,2,5,8,1,
%T 4,7,10,3,6,9,2,5,8,11,1,4,7,10,3,6,9,12,2,5,8,11,1,4,7,10,13,3,6,9,
%U 12,2,5,8,11,14,1,4,7,10,13,3,6,9,12,15,2,5,8,11,14,1,4,7,10,13,16
%N Signature sequence of e^(1/e) - the solution (the y value) to Steiner's problem: find the max value attained by y=x^(1/x).
%H T. D. Noe, <a href="/A133334/b133334.txt">Table of n, a(n) for n=1..1000</a>
%H C. Kimberling, <a href="http://faculty.evansville.edu/ck6/integer/fractals.html">Fractal sequences</a>
%t Take[Transpose[ Sort[Flatten[Table[{i + j*(E^(1/E)), i}, {i, 17}, {j, 15}], 1], #1[[1]] < #2[[1]] &]][[2]], 91]
%Y Cf. A073229.
%K nonn
%O 1,2
%A _Gregg Whisler_, Oct 19 2007
|
