|
Search: id:A166253
|
|
|
| A166253 |
|
The sequence S comes up when setting s(0)=0,1,1,1,0 and s(1)=1,0,0,0,1 if you make s^n for n to infinity. S is strongly connected to the Kochcurve generated by the L-System F + F - F - F + F by doing the follwoing repeatedly: Go one step; turn left if there is 01 or 10 in S and right if there is 00 or 11 in S. Go to the next element of the sequence. |
|
+0
1
|
|
| 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
s(0)=0,1,1,1,0 and s(1)=1,0,0,0,1 Then S = lim s^n (n to infinity)
|
|
MATHEMATICA
|
s[0] = {0, 1, 1, 1, 0}; s[1] = {1, 0, 0, 0, 1}; sf[l_] := Module[{out = {}}, For[i = 1, i <= Length[l], i++, next = l[[i]]; AppendTo[out, s[next]]]; Return[Flatten[out]]] k = 7; e = {0}; For[m = 1, m <= k, m++, e = sf[e]]; e
|
|
CROSSREFS
|
Sequence in context: A141737 A089011 A095111 this_sequence A159638 A120528 A164950
Adjacent sequences: A166250 A166251 A166252 this_sequence A166254 A166255 A166256
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Stephan Rosebrock (rosebrock(AT)ph-karlsruhe.de), Oct 10 2009
|
|
|
Search completed in 0.002 seconds
|
