%I #4 May 15 2016 10:25:23
%S 1,10,100,1001,10010,100101,1001011,10010110,100101100,1001011001,
%T 10010110011,100101100110,1001011001101,10010110011010,
%U 100101100110100,1001011001101001,10010110011010010,100101100110100101
%N a(n) = concatenation of first n elements of Thue-Morse sequence A010059.
%F a(n)=sum{k=0..n, (1+(-1)^A010060(n-k))10^k/2}.
%t With[{tm=Nest[Join[#,Mod[2#+1,3]]&,{1},10]},Table[FromDigits[Take[tm,n]],{n,20}]] (* _Harvey P. Dale_, May 15 2016 *)
%Y Cf. A019299.
%K base,easy,nonn
%O 0,2
%A _Paul Barry_, Jan 06 2005