%I A093590
%S A093590 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,
%T A093590 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,
%U A093590 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
%N A093590 Decimal expansion of the number x defined by x^x=16.
%C A093590 This is a kind of mean of 2 and 4 because 2^4=4^2=16.
%H A093590 Harry J. Smith, <a href="b093590.txt">Table of n, a(n) for n=1,...,20000</
               a>
%F A093590 4*ln(2)/LambertW(4*ln(2)). - Vladeta Jovovic (vladeta(AT)eunet.rs), Apr 
               11 2004
%e A093590 a(0)=2 because 2^2<16<3^3.
%e A093590 2.745368023567463484709849289551203844711077487792418053063199251389520482656759410684050489102154263....
%t A093590 RealDigits[ Log[16]/ProductLog[ Log[16]], 10, 111][[1]] (from Robert 
               G. Wilson v Apr 24 2004)
%o A093590 (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]
%Y A093590 Sequence in context: A066766 A145433 A055200 this_sequence A065629 A049249 
               A132724
%Y A093590 Adjacent sequences: A093587 A093588 A093589 this_sequence A093591 A093592 
               A093593
%K A093590 nonn,cons
%O A093590 1,1
%A A093590 David C. Smith (extra314(AT)hotmail.com), Apr 02 2004