|
| |
|
|
A023118
|
|
Signature sequence of 1/sqrt(5) (arrange the numbers i+j*x (i,j >= 1) in increasing order; the sequence of i's is the signature of x).
|
|
2
| |
|
|
1, 1, 1, 2, 1, 2, 1, 2, 3, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 6, 2, 3, 4, 5, 1, 6, 2, 3, 4, 5, 1, 6, 2, 7, 3, 4, 5, 1, 6, 2, 7, 3, 4, 5, 1, 6, 2, 7, 3, 8, 4, 5, 1, 6, 2, 7, 3, 8, 4, 5, 1, 6, 2, 7, 3, 8, 4, 9, 5, 1, 6, 2, 7, 3, 8, 4, 9, 5, 1, 6, 2, 7, 3, 8, 4, 9, 5, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
REFERENCES
| C. Kimberling, "Fractal Sequences and Interspersions", Ars Combinatoria, vol. 45 p 157 1997.
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
C. Kimberling, Interspersions
|
|
|
MATHEMATICA
| signseq[n_] := Take[ Transpose[ Sort[ Flatten[ Table[{i + j*n, i}, {i, Max[15, 15n]}, {j, Max[15, 15/n]}], 1], #1[[1]] < #2[[1]] &]][[2]], 105]; signseq[1/Sqrt[5]] (from Robert G. Wilson v Sep 20 2004)
|
|
|
CROSSREFS
| Sequence in context: A136314 A121997 A023128 * A122197 A030718 A194066
Adjacent sequences: A023115 A023116 A023117 * A023119 A023120 A023121
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Clark Kimberling (ck6(AT)evansville.edu)
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 20 2004
|
| |
|
|
