A133334 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).

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, 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, 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

Offset

1,2

Links

T. D. Noe, Table of n, a(n) for n=1..1000

C. Kimberling, Fractal sequences

Mathematica

Take[Transpose[ Sort[Flatten[Table[{i + j*(E^(1/E)), i}, {i, 17}, {j, 15}], 1], #1[[1]] < #2[[1]] &]][[2]], 91]

Crossrefs

Cf. A073229.

Sequence in context: A167287 A007336 A227539 * A003603 A278118 A255238

Adjacent sequences: A133331 A133332 A133333 * A133335 A133336 A133337

Keyword

nonn

Author

Gregg Whisler, Oct 19 2007

Status

approved