login
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).
2
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
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
KEYWORD
nonn
AUTHOR
Gregg Whisler, Oct 19 2007
STATUS
approved