%I #14 May 27 2024 11:33:15
%S 1,2,3,4,5,6,7,1,8,2,9,3,10,4,11,5,12,6,13,7,14,1,8,15,2,9,16,3,10,17,
%T 4,11,18,5,12,19,6,13,20,7,14,21,1,8,15,22,2,9,16,23,3,10,17,24,4,11,
%U 18,25,5,12,19,26,6,13,20,27,7,14,21,28,1,8,15,22,29,2,9,16,23,30,3,10,17
%N Signature sequence of Phi^4 = 6.8541019662497..., 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 = 83; m = Ceiling[Sqrt[terms]]; s0 = {}; While[s = (Table[i + j*GoldenRatio^4, {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, A167968.
%K nonn
%O 1,2
%A _Casey Mongoven_, Nov 15 2009