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

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

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]] (* Robert G. Wilson v, Sep 20 2004 *)

Crossrefs

Sequence in context: A023128 A237260 A249727 * A122197 A030718 A227779

Adjacent sequences: A023115 A023116 A023117 * A023119 A023120 A023121

Keyword

nonn

Author

Clark Kimberling

Extensions

More terms from Robert G. Wilson v, Sep 20 2004

Status

approved