login
A167286
Signature sequence of the smallest Pisot number (A060006).
0
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,2
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]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 01 2009
STATUS
approved