%I #14 May 27 2024 11:32:47
%S 1,2,3,4,5,1,6,2,7,3,8,4,9,5,1,10,6,2,11,7,3,12,8,4,13,9,5,1,14,10,6,
%T 2,15,11,7,3,16,12,8,4,17,13,9,5,1,18,14,10,6,2,19,15,11,7,3,20,16,12,
%U 8,4,21,17,13,9,5,22,1,18,14,10,6,23,2,19,15,11,7,24,3,20,16,12,8,25,4,21
%N Signature sequence of Phi^3 = 4.2360679774998..., where Phi is the golden ratio 1.6180339887499... .
%D Clark Kimberling, "Fractal Sequences and Interspersions," Ars Combinatoria 45 (1997) 157-168.
%H <a href="/index/Si#signature_sequences">Index entries for sequences related to signature sequences</a>
%t terms = 86; m = Ceiling[Sqrt[terms]]; s0 = {}; While[s = (Table[i + j*GoldenRatio^3, {i, 1, m}, {j, 1, m}] // Flatten // SortBy[#, N] &)[[1 ;; terms]] /. GoldenRatio -> 0; s != s0, s0 = s; m = 2 m]; s (* _Jean-François Alcover_, Jan 08 2017 *)
%Y Cf. A084531, A084532, A167969.
%K nonn
%O 1,2
%A _Casey Mongoven_, Nov 15 2009