A167968 Signature sequence of phi^4 = 0.14589803375032..., where phi is the golden ratio minus 1 (0.61803398874989...).

1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1, 5, 4, 3, 2, 1

Offset

1,8

References

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

Links

Table of n, a(n) for n=1..105.

Mathematica

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

Crossrefs

Cf. A084531, A084532, A167972.

Sequence in context: A023126 A329129 A160985 * A161239 A161063 A161267

Adjacent sequences: A167965 A167966 A167967 * A167969 A167970 A167971

Keyword

nonn

Author

Casey Mongoven, Nov 15 2009

Status

approved