A167288 - OEIS

A167288

Signature sequence of Salem number 1.1762808182599176...

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, 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, 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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..95.

Index entries for sequences related to signature sequences

MATHEMATICA

Mathematica code based on that for A007337 by Robert G. Wilson v.:

m = x /. Solve[x^( 10) + x^9 - x^7 - x^6 - x^5 - x^4 - x^3 + x + 1 == 0, x][[2]]

Take[Transpose[Sort[Flatten[Table[{i + j*m, i}, {i, 25}, {j, 17}], 1], #1[[1]] < #2[[1]] &]][[2]], 95]

CROSSREFS

Cf. A007337, A084531