OFFSET
1,2
LINKS
M. J. Mossinghoff, Small Salem Numbers
Eric Weisstein's MathWorld, Salem Constants.
Wikipedia, Salem number
FORMULA
p = 1 - x^2 - x^3 + x^7 + x^8 - x^10 - x^11 - x^12 + x^14 + x^15 - x^19 - x^20 + x^22.
EXAMPLE
1.2356645803897473081051693515312634797235100427462390776504380772063...
MATHEMATICA
c1 = {1, 0, -1, -1, 0, 0, 0, 1, 1, 0, -1, -1};
c2 = Join[c1, Reverse[Most[c1]]];
p = (x^Range[0, Length[c2] - 1]).c2;
sigma9 = Root[p, x, 2];
RealDigits[sigma9, 10, 101][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, Jul 08 2018
STATUS
approved