%I A039982
%S A039982 1,1,0,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,1,1,0,1,1,
%T A039982 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,
%U A039982 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
%N A039982 An example of a d-perfect sequence.
%C A039982 Concatenation of the bit sequences forming A035263. - David Callan (callan(AT)stat.wisc.edu), 
               Oct 08 2005
%D A039982 Martin Klazar and Florian Luca, On integrality and periodicity of the 
               Motzkin numbers, Aequationes Math. 69 (2005), no. 1-2, 68-75.
%H A039982 Martin Klazar and Florian Luca, <a href="http://kam.mff.cuni.cz/~klazar/
               publications.html">On integrality and periodicity of the Motzkin 
               numbers</a>.
%H A039982 D. Kohel, S. Ling and C. Xing, <a href="http://www.maths.usyd.edu.au/
               u/kohel/doc/perfect.ps">Explicit Sequence Expansions</a>
%F A039982 a(n) = A090344(n) mod 2 - Christian G. Bower (bowerc(AT)usa.net), Jun 
               12 2005 - Christian G. Bower (bowerc(AT)usa.net), Jun 12 2005
%F A039982 a(n) = M(2n) mod 2 where M(n) is the Motzkin number A001006. - David 
               Callan (callan(AT)stat.wisc.edu), Oct 08 2005
%t A039982 substitutionRule={1->{1, 0}, 0->{1, 1}}; makeSubstitution[seq_]:=Flatten[seq/
               .substitutionRule]; Flatten[NestList[makeSubstitution, {1}, 5]]
%t A039982 NestList[Flatten[ # /. {0 -> {1, 1}, 1 -> {1, 0}}] &, {1}, 6] // Flatten 
               (from Robert G. Wilson v (rgwv(at)rgwv.com), Mar 29 2006)
%Y A039982 Cf. A035263.
%Y A039982 Sequence in context: A093719 A153778 A065251 this_sequence A131372 A098457 
               A137161
%Y A039982 Adjacent sequences: A039979 A039980 A039981 this_sequence A039983 A039984 
               A039985
%K A039982 nonn
%O A039982 1,1
%A A039982 N. J. A. Sloane (njas(AT)research.att.com).
%E A039982 More terms from Christian G. Bower (bowerc(AT)usa.net), Jun 12 2005