OFFSET
1,2
LINKS
M. J. Mossinghoff, Small Salem Numbers
Eric Weisstein's MathWorld, Salem Constants.
Wikipedia, Salem number
EXAMPLE
1.200026523987391518902962100414601567240618151999851067924399839886...
MATHEMATICA
c1 = {1, 0, 0, -1, -1, 0, 0, 1};
c2 = Join[c1, Reverse[Most[c1]]];
p = (x^Range[0, Length[c2]-1]). c2;
sigma3 = Root[p, x, 2];
RealDigits[sigma3, 10, 100][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, Jun 19 2018
STATUS
approved