|
%I #14 Jan 18 2024 19:36:45
%S 1,8,8,0,0,0,0,4,7,8,6,5,5,5,5,1,1,8,2,8,1,8,0,6,8,9,6,9,8,9,9,4,7,9,
%T 1,1,0,6,4,5,6,0,8,3,9,4,8,2,2,6,0,5,7,8,5,0,9,9,8,0,6,9,2,0,9,2,6,3,
%U 5,0,3,0,7,5,4,0,1,4,2,3,5,6,7,7,0,7,2,8,5,0,4,4,2,9,6,4,9,7,6,7,2,2,4,4,9
%N Decimal expansion of smallest univoque Pisot Number.
%C The 2nd and 3rd smallest univoque Pisot numbers are 1.88668143754934130025816257714603375701548531750851456... and 1.9051661677540189095727878303640157935069696492981...
%H J.-P. Allouche, C. Frougny, K. G. Hare, <a href="http://arxiv.org/abs/math/0610681">On univoque Pisot numbers</a>, arXiv:math/0610681 [math.NT], (23-October-2006)
%H J.-P. Allouche, C. Frougny, K. G. Hare, <a href="http://dx.doi.org/10.1090/S0025-5718-07-01961-8">On univoque Pisot numbers</a>, Math. Comp. 76 (2007), 1639-1660.
%H D. Terr and Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PisotNumber.html">Pisot Numbers</a>.
%F The largest real root of x^14 - 2*x^13 + x^11 - x^10 - x^7 + x^6 - x^4 + x^3 - x + 1. - _Robert G. Wilson v_, Jul 17 2007 (corrected, _Joerg Arndt_, Jun 13 2015)
%e 1.88000047865555118281806896989947911064560839482260578509980692092...
%t First@ RealDigits[ FindRoot[ x^14 - 2 x^13 + x^11 - x^10 - x^7 + x^6 - x^4 + x^3 - x + 1, {x, 1.88}, WorkingPrecision -> 111][[1, 2]]] (* _Robert G. Wilson v_, Jul 17 2007 *)
%t RealDigits[Root[x^14-2x^13+x^11-x^10-x^7+x^6-x^4+x^3-x+1,2],10,120][[1]] (* _Harvey P. Dale_, Jan 18 2024 *)
%K cons,nonn
%O 1,2
%A _R. J. Mathar_, Jun 13 2007
%E More terms from _Robert G. Wilson v_, Jul 17 2007
|
