A167287 Signature sequence of Pisot number 1.3802775690976206... (A086106)

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

Links

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

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

Cf. A007337, A084531

Sequence in context: A331581 A227355 A226080 * A007336 A227539 A133334

Adjacent sequences: A167284 A167285 A167286 * A167288 A167289 A167290

Keyword

nonn

Author

Roger L. Bagula, Nov 01 2009

Status

approved