login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #8 May 27 2024 11:46:03

%S 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,

%T 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,

%U 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

%N Signature sequence of the smallest Pisot number (A060006).

%H <a href="/index/Si#signature_sequences">Index entries for sequences related to signature sequences</a>

%t m = x /. Solve[x^3 - x - 1 == 0, x][[1]]

%t Take[Transpose[Sort[Flatten[Table[{i + j*m, i}, {i, 25}, {j, 17}], 1], #1[[1]] < #2[[1]] &]][[2]], 95]

%Y Cf. A007337, A084531

%K nonn

%O 1,2

%A _Roger L. Bagula_, Nov 01 2009