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

Links

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

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

Cf. A007337, A084531

Sequence in context: A200329 A023122 A200272 * A249821 A249822 A200082

Adjacent sequences: A167283 A167284 A167285 * A167287 A167288 A167289

Keyword

nonn

Author

Roger L. Bagula, Nov 01 2009

Status

approved