Search: id:A104106 Results 1-1 of 1 results found. %I A104106 %S A104106 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, %T A104106 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, %U A104106 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 %N 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. %H A104106 Leroy Quet, Home Page (listed in lieu of email address) %t A104106 f[l_]:=Join[l,1-{l[[Log[2,Length[l]+1]]]},l];Nest[f,{1},7] (*Chandler*) %Y A104106 Cf. A104104, A104105, A104107, A104108. %Y A104106 Sequence in context: A030308 A120530 A078616 this_sequence A141260 A029883 A035263 %Y A104106 Adjacent sequences: A104103 A104104 A104105 this_sequence A104107 A104108 A104109 %K A104106 easy,nonn %O A104106 1,1 %A A104106 Leroy Quet, Mar 04 2005 %E A104106 Edited and extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Apr 05 2009 Search completed in 0.001 seconds