A374750 - OEIS

%I #14 Jul 19 2024 02:26:45

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

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

%U 2,7,4,6,0,6,5,6,5,5,8,8,3,8,0,8,0,7,7,7,4,7

%N Decimal expansion of the second smallest univoque Pisot number.

%H Paolo Xausa, <a href="/A374750/b374750.txt">Table of n, a(n) for n = 1..10000</a>

%H Jean-Paul Allouche, Christiane Frougny, and Kevin G. Hare, <a href="https://doi.org/10.1090/S0025-5718-07-01961-8">On Univoque Pisot Numbers</a>, Mathematics of Computation, Vol. 76, No. 259, July 2007, pp. 1639-1660 (<a href="https://doi.org/10.48550/arXiv.math/0610681">arXiv version</a>).

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PisotNumber.html">Pisot Number</a>.

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Pisot%E2%80%93Vijayaraghavan_number">Pisot-Vijayaraghavan number</a>.

%H <a href="/index/Al#algebraic">Index entries for algebraic numbers</a>.

%F Equals the real root > 1 of x^12 - 2*x^11 + x^10 - 2*x^9 + x^8 - x^3 + x^2 - x + 1.

%e 1.8866814375493413002581625771460337570154853175...

%t First[RealDigits[Root[#^12 - 2*#^11 + #^10 - 2*#^9 + #^8 - #^3 + #^2 - # + 1 &, 2], 10, 100]]

%Y Cf. A127583 (smallest), A374751 (third smallest).

%K nonn,cons

%O 1,2

%A _Paolo Xausa_, Jul 18 2024