|
|
A216763
|
|
The Lambda word generated by (1+sqrt(5))/2.
|
|
3
|
|
|
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, 4, 5, 4, 3, 4, 3, 4, 5, 4, 3, 4, 5, 4, 4, 5, 4, 3, 4, 5, 4, 4, 5, 4, 5, 4, 4, 5, 4, 4, 5, 4, 5, 4, 4, 5, 4, 5, 6, 5, 4, 5, 4, 4, 5, 4, 5, 6, 5, 4, 5, 4, 5, 6, 5, 4, 5, 6, 5, 4, 5, 4, 5, 6, 5, 4, 5, 6, 5, 5, 6, 5, 4, 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+j*t, where t is irrational, 1 < t < 2. This is the Fibonacci Lambda word, t = (1+sqrt(5))/2. The word is achieved by connecting the position numbers of the integers in order from a transpose of the array form of A216448 (0,0), (1,0), (0,1), (2,0), (1,1), and then encoding the vectors starting with (1,0) -> 0, (-1,1) -> 1, (2,-1) -> 2, (-1,1) -> 1.
A Lambda word is a right infinite rich word on an infinite alphabet.
|
|
LINKS
|
|
|
MATHEMATICA
|
t = GoldenRatio;
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_] := (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]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|