OFFSET
1,2
LINKS
M. J. Mossinghoff, Small Salem Numbers
Eric Weisstein's MathWorld, Salem Constants.
Wikipedia, Salem number
FORMULA
Equals root of p = 1 - x - x^8 + x^9 - x^10 - x^17 + x^18 with largest absolute value.
EXAMPLE
1.219720859040311844169606760414677944390415505541569678287974417873...
MATHEMATICA
c1 = {1, -1, 0, 0, 0, 0, 0, 0, -1, 1};
c2 = Join[c1, Reverse[Most[c1]]];
p = (x^Range[0, Length[c2] - 1]).c2;
sigma6 = Root[p, x, 2];
RealDigits[sigma6, 10, 102][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, Jul 08 2018
STATUS
approved