A167286 Signature sequence of the smallest Pisot number (A060006).

1, 2, 1, 3, 2, 1, 4, 3, 2, 1, 5, 4, 3, 2, 6, 1, 5, 4, 3, 7, 2, 6, 1, 5, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 10, 1, 5, 9, 4, 8, 3, 7, 11, 2, 6, 10, 1, 5, 9, 4, 8, 12, 3, 7, 11, 2, 6, 10, 1, 5, 9, 13, 4, 8, 12, 3, 7, 11, 2, 6, 10, 14, 1, 5, 9, 13, 4, 8, 12, 3, 7, 11, 15, 2, 6, 10, 14, 1, 5

Offset: 1

Author

Roger L. Bagula, Nov 01 2009

Keywords

• nonn

Links

• Index entries for sequences related to signature sequences

Crossrefs

Cf. A007337, A084531

Programs

Mathematica

m = x /. Solve[x^3 - x - 1 == 0, x][[1]]
Take[Transpose[Sort[Flatten[Table[{i + j*m, i}, {i, 25}, {j, 17}], 1], #1[[1]] < #2[[1]] &]][[2]], 95]