login
Signature sequence of Pisot number 1.3802775690976206... (A086106)
0

%I #6 May 27 2024 11:46:32

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

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

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

%N Signature sequence of Pisot number 1.3802775690976206... (A086106)

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

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

%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