|
Search: id:A104106
|
|
|
| A104106 |
|
a(1) = 1, if A(k) = sequence of first 2^k -1 terms, then A(k+1) = A(k), 1,A(k) if a(k) = 0, A(k+1) = A(k),0,A(k) if a(k) = 1. |
|
+0
5
|
|
| 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
MATHEMATICA
|
f[l_]:=Join[l, 1-{l[[Log[2, Length[l]+1]]]}, l]; Nest[f, {1}, 7] (*Chandler*)
|
|
CROSSREFS
|
Cf. A104104, A104105, A104107, A104108.
Sequence in context: A030308 A120530 A078616 this_sequence A141260 A029883 A035263
Adjacent sequences: A104103 A104104 A104105 this_sequence A104107 A104108 A104109
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Leroy Quet, Mar 04 2005
|
|
EXTENSIONS
|
Edited and extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Apr 05 2009
|
|
|
Search completed in 0.002 seconds
|
