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,31

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*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 *)

Crossrefs

Cf. A084531 (signature of phi), A084532 (signature of 1/phi), A118276 (phi^2), A167970 (1/phi^2), A167971 (phi^3), A167979 (1/phi^3), A167972 (phi^4), A167968 (1/phi^4), A167973 (phi^5), A167967 (1/phi^5), A167974 (phi^6), A167966 (1/phi^6), A167975 (phi^7), A167965 (1/phi^7), A167976 (phi^8), A167964 (1/phi^8).

Sequence in context: A134451 A229217 A347526 * A270370 A167966 A348998

Adjacent sequences: A167962 A167963 A167964 * A167966 A167967 A167968

Keyword

nonn

Author

Casey Mongoven, Nov 15 2009

Status

approved