A103559 - OEIS

%I #8 Jan 07 2023 12:31:33

%S 3,8,4,5,7,1,7,5,0,5,0,4,9,4,8,7,0,3,1,4,7,9,4,6,7,2,2,5,3,5,8,7,8,5,

%T 1,8,1,0,7,2,3,8,0,1,3,1,1,9,0,1,0,3,4,9,5,0,1,6,1,1,2,1,2,9,4,3,0,7,

%U 4,4,0,8,4,7,7,9,8,1,5,0,3,2,4,9,2,3,9,7,2,1,7,9,0,4,1,5,3,5,3,2,0,8,8,9,7

%N Decimal expansion of solution to x*12^x=1.

%F x=0.3845717505049487031479467...; x*12^x=1.

%t RealDigits[ ProductLog[ Log[12]]/Log[12], 10, 111][[1]] (* _Robert G. Wilson v_, Mar 23 2005 *)

%t RealDigits[x/.FindRoot[x 12^x==1,{x,.3},WorkingPrecision->120],10,120][[1]] (* _Harvey P. Dale_, Jan 07 2023 *)

%K nonn,cons

%O 0,1

%A _Zak Seidov_, Mar 23 2005

%E More terms from _Robert G. Wilson v_, Mar 23 2005