login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A216448 The Lambda word generated by log(3)/log(2). 4
0, 1, 2, 1, 2, 3, 2, 2, 3, 2, 3, 4, 3, 2, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 3, 5, 3, 3, 4, 3, 3, 5, 3, 3, 3, 5, 3, 3, 5, 3, 3, 3, 5, 3, 3, 5, 6, 5, 3, 3, 5, 3, 3, 5, 6, 5, 3, 3, 5, 6, 5, 3, 5, 6, 5, 3, 3, 5, 6, 5, 3, 5, 6, 5, 6, 5, 3, 5, 6, 5, 3, 5, 6, 5, 6, 5, 3, 5, 6, 5, 6, 5, 5, 6, 5, 6, 5, 3, 5, 6, 5, 6, 5, 5, 6 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

A Lambda word is a symbolic sequence that encodes differences in the sequence i+jt, where t is irrational, 1 < t < 2.

LINKS

Robert G. Wilson v, Table of n, a(n) for n = 0..1000

N. Carey, On a class of locally symmetric sequences, The right infinite word Lambda Theta, in Mathematics and Computation in Music in Lect. Notes in Comp. Sci., Vol. 6726, Springer, (2011), 42-55.

N. Carey, Lambda words: A class of rich words defined over an infinite alphabet, Journal of Integer Sequences, Vol. 16 (2013), Article 13.3.4.

MATHEMATICA

t = Log[2, 3];

end = 100;

x = Table[Ceiling[n*1/t], {n, 0, end }];

y = Table[Ceiling[n*t], {n, 0, end}];

tot[p_, q_] := Total[Take[x, p + 1]] + (p*q) + Total[Take[y, q + 1]]

row[r_] := Table[tot[n, r], {n, 0, end - 1}]

g = Grid[Table[row[n], {n, 0, IntegerPart[(end - 1)/t]}]];

pos[n_] := Reverse[Position[g, n][[1, Range[2, 3]]] - 1]

d[n_] := (d[0] = 0; op[m_] := pos[m + 1] - pos[m];

  Abs[Total[ContinuedFraction[op[n][[1]]/op[n][[2]]] ] ])

l = Prepend[Table[d[n], {n, 1, 249}], 0]

(* Norman Carey, Sep 10 2012 *)

CROSSREFS

Cf. A003586, A216763, A216764.

Sequence in context: A240712 A171611 A239507 * A216763 A112759 A309971

Adjacent sequences:  A216445 A216446 A216447 * A216449 A216450 A216451

KEYWORD

nonn

AUTHOR

Norman Carey, Sep 10 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 3 14:12 EDT 2020. Contains 333197 sequences. (Running on oeis4.)