login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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
OFFSET
1,4
REFERENCES
C. Kimberling, "Fractal Sequences and Interspersions", Ars Combinatoria, vol. 45 p 157 1997.
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
Cf. A020762.
Sequence in context: A023128 A237260 A249727 * A122197 A030718 A227779
KEYWORD
nonn
EXTENSIONS
More terms from Robert G. Wilson v, Sep 20 2004
STATUS
approved