%I #3 Oct 31 2013 12:23:02
%S 1,2,1,3,2,1,4,3,2,1,5,4,3,2,1,6,5,4,3,2,1,7,6,5,4,3,2,8,1,7,6,5,4,3,
%T 9,2,8,1,7,6,5,4,10,3,9,2,8,1,7,6,5,11,4,10,3,9,2,8,1,7,6,12,5,11,4,
%U 10,3,9,2,8,1,7,13,6,12,5,11,4,10,3,9,2,8,1,14,7,13,6,12,5,11,4,10,3,9
%N Signature sequence of Salem number 1.1762808182599176...
%t Mathematica code based on that for A007337 by _Robert G. Wilson v_.:
%t m = x /. Solve[x^( 10) + x^9 - x^7 - x^6 - x^5 - x^4 - x^3 + x + 1 == 0, x][[2]]
%t Take[Transpose[Sort[Flatten[Table[{i + j*m, i}, {i, 25}, {j, 17}], 1], #1[[1]] < #2[[1]] &]][[2]], 95]
%Y Cf. A007337, A084531
%K nonn
%O 1,2
%A _Roger L. Bagula_, Nov 01 2009
|