login
A167287
Signature sequence of Pisot number 1.3802775690976206... (A086106)
0
1, 2, 1, 3, 2, 1, 4, 3, 2, 5, 1, 4, 3, 6, 2, 5, 1, 4, 7, 3, 6, 2, 5, 1, 8, 4, 7, 3, 6, 2, 9, 5, 1, 8, 4, 7, 3, 10, 6, 2, 9, 5, 1, 8, 4, 11, 7, 3, 10, 6, 2, 9, 5, 12, 1, 8, 4, 11, 7, 3, 10, 6, 13, 2, 9, 5, 12, 1, 8, 4, 11, 7, 14, 3, 10, 6, 13, 2, 9, 5, 12, 1, 8, 15, 4, 11, 7, 14, 3, 10, 6, 13, 2, 9, 16
OFFSET
1,2
MATHEMATICA
m = x /. Solve[x^4 - x^3 - 1 == 0, x][[4]]
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