OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
Michael Mossinghoff, Lehmer's Problem Website.
Michael Mossinghoff, Small Salem Numbers.
Eric Weisstein's World of Mathematics, Signature Sequence.
MATHEMATICA
a = {1, -1, 1, -1, 0, 0, -1, 1, -1};
b = Join[a, {1}, Reverse[a]];
p[x_] = Sum[b[[n]]*x^(n - 1), {n, 1, Length[b]}];
m = Root[p[x], 2];
Take[Transpose[Sort[Flatten[Table[{i + j*m, i}, {i, 25}, {j, 17}], 1], #1[[1]] < #2[[1]] &]][[2]], 95]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Nov 01 2009
STATUS
approved