A167965 Signature sequence of phi^7 = 0.034441853748633..., where phi is A094214.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3

Offset: 1

Author

Casey Mongoven, Nov 15 2009

Keywords

• nonn

References

• Clark Kimberling, "Fractal Sequences and Interspersions," Ars Combinatoria 45 (1997) 157-168.

Links

• Index entries for sequences related to signature sequences

Programs

Mathematica

terms = 105; m = Ceiling[Sqrt[terms]]; s0 = {}; While[s = (Table[i + j*x, {i, 1, m}, {j, 1, m}] // Flatten // SortBy[#, N[# /. x -> 1/GoldenRatio^7] &] &)[[1 ;; terms]] /. x -> 0; s != s0, s0 = s; m = 2 m]; s (* Jean-François Alcover, Jan 08 2017 *)