%I #21 Aug 21 2023 10:38:40
%S 1,1,8,8,3,6,8,1,4,7,5,0,8,2,2,3,5,8,8,1,4,2,9,6,0,9,5,8,6,2,9,5,9,3,
%T 5,9,4,7,0,4,7,0,4,5,6,0,0,6,2,9,0,5,6,8,8,7,4,1,4,5,3,3,7,1,2,9,1,9,
%U 6,0,6,4,1,4,0,2,1,7,4,5,8,9,4,7,5,8,3,5,0,9,8,8,0,6,7,9,6,7,7,4,5,0,8,8,8
%N Decimal expansion of the second smallest known Salem number.
%C This number is algebraic of degree 18. Sequence A073011 contains the smallest known Salem number.
%C It is the only root r of the polynomial x^18 - x^17 + x^16 - x^15 - x^12 + x^11 - x^10 + x^9 - x^8 + x^7 - x^6 - x^3 + x^2 - x + 1 with abs(r) > 1. - _Joerg Arndt_, Nov 18 2012
%H Arkadiusz Wesolowski, <a href="/A219300/b219300.txt">Table of n, a(n) for n = 1..10000</a>
%H M. J. Mossinghoff, <a href="http://www.cecm.sfu.ca/~mjm/Lehmer/lists/SalemList.html">Small Salem Numbers</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Salem_number">Salem number</a>
%H <a href="/index/Al#algebraic_18">Index entries for algebraic numbers, degree 18</a>
%e 1.188368147508223588142960958....
%t RealDigits[x /. FindRoot[x^18 - x^17 + x^16 - x^15 - x^12 + x^11 - x^10 + x^9 - x^8 + x^7 - x^6 - x^3 + x^2 - x + 1 == 0, {x, 1, 2}, WorkingPrecision -> 200]][[1]]
%Y Cf. A073011, A173911.
%K cons,nonn
%O 1,3
%A _Arkadiusz Wesolowski_, Nov 17 2012