|
| |
|
|
A093590
|
|
Decimal expansion of the number x defined by x^x=16.
|
|
2
| |
|
|
2, 7, 4, 5, 3, 6, 8, 0, 2, 3, 5, 6, 7, 4, 6, 3, 4, 8, 4, 7, 0, 9, 8, 4, 9, 2, 8, 9, 5, 5, 1, 2, 0, 3, 8, 4, 4, 7, 1, 1, 0, 7, 7, 4, 8, 7, 7, 9, 2, 4, 1, 8, 0, 5, 3, 0, 6, 3, 1, 9, 9, 2, 5, 1, 3, 8, 9, 5, 2, 0, 4, 8, 2, 6, 5, 6, 7, 5, 9, 4, 1, 0, 6, 8, 4, 0, 5, 0, 4, 8, 9, 1, 0, 2, 1, 5, 4, 2, 6, 3, 9, 9, 5, 6, 2
(list; constant; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| This is a kind of mean of 2 and 4 because 2^4=4^2=16.
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,20000
|
|
|
FORMULA
| 4*ln(2)/LambertW(4*ln(2)). - Vladeta Jovovic (vladeta(AT)eunet.rs), Apr 11 2004
|
|
|
EXAMPLE
| a(0)=2 because 2^2<16<3^3.
2.745368023567463484709849289551203844711077487792418053063199251389520482656759410684050489102154263....
|
|
|
MATHEMATICA
| RealDigits[ Log[16]/ProductLog[ Log[16]], 10, 111][[1]] (from Robert G. Wilson v Apr 24 2004)
|
|
|
PROG
| (PARI) { default(realprecision, 20080); x=solve(x=2, 3, x^x - 16); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b093590.txt", n, " ", d)); } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 19 2009]
|
|
|
CROSSREFS
| Sequence in context: A066766 A145433 A055200 * A065629 A049249 A198036
Adjacent sequences: A093587 A093588 A093589 * A093591 A093592 A093593
|
|
|
KEYWORD
| nonn,cons
|
|
|
AUTHOR
| David C. Smith (extra314(AT)hotmail.com), Apr 02 2004
|
| |
|
|
