login
A118276
Signature sequence of Phi^2 = 2.618033989... (A104457), where Phi is the golden ratio A001622.
4
1, 2, 3, 1, 4, 2, 5, 3, 6, 1, 4, 7, 2, 5, 8, 3, 6, 1, 9, 4, 7, 2, 10, 5, 8, 3, 11, 6, 1, 9, 4, 12, 7, 2, 10, 5, 13, 8, 3, 11, 6, 14, 1, 9, 4, 12, 7, 15, 2, 10, 5, 13, 8, 16, 3, 11, 6, 14, 1, 9, 17, 4, 12, 7, 15, 2, 10, 18, 5, 13, 8, 16, 3, 11, 19, 6, 14, 1, 9, 17, 4, 12, 20, 7, 15, 2, 10, 18, 5, 13
OFFSET
1,2
COMMENTS
Equals A023119 in the first 98 terms, then the sequences differ. [From R. J. Mathar, Aug 08 2008]
REFERENCES
C. Kimberling, "Fractal Sequences and Interspersions", Ars Combinatoria, vol. 45 p 157 1997.
MATHEMATICA
terms = 90; m = Ceiling[Sqrt[terms]]; s0 = {}; While[s = (Table[i + j*GoldenRatio^2, {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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Casey Mongoven, Apr 21 2006
STATUS
approved