|
%I #14 Jun 08 2015 13:14:02
%S 3,9,9,0,1,2,9,7,8,2,6,0,2,5,2,0,7,1,5,9,6,4,7,0,8,1,0,6,2,4,0,9,2,0,
%T 2,3,9,9,6,2,0,1,8,6,8,4,5,4,9,6,7,8,7,4,0,7,2,1,4,0,0,9,4,0,6,4,0,3,
%U 1,8,0,9,7,7,0,2,5,3,4,8,8,6,3,1,2,1,7,6,2,3,7,5,7,8,5,3,0,1,5,3,0,2,2,4,8
%N Decimal expansion of solution to x*10^x=1.
%F x = 0.3990129782602520715964708106240920239962... ; x*10^x=1.
%p read("transforms3") ; Digits := 120 ; x := 0.4 ; for l from 1 to 10 do x := x-(x-10^(-x))/(1+x*log(10)) : x := evalf(x) ; end do; CONSTTOLIST(x) ; # _R. J. Mathar_, Mar 23 2010
%t RealDigits[x/.FindRoot[x 10^x==1,{x,.39},WorkingPrecision->150]][[1]] (* _Harvey P. Dale_, Jun 21 2012 *)
%t RealDigits[ ProductLog[Log[10]] / Log[10], 10, 105][[1]] (* _Jean-François Alcover_, Jan 28 2014 *)
%o (PARI) solve(x=0,1,x*10^x-1) \\ _Charles R Greathouse IV_, Jun 08 2015
%K nonn,cons
%O 0,1
%A _Zak Seidov_, Mar 23 2005
%E More digits from _R. J. Mathar_, Mar 23 2010
|
