A102397 a(n) = concatenation of first n elements of Thue-Morse sequence A010059.

1, 10, 100, 1001, 10010, 100101, 1001011, 10010110, 100101100, 1001011001, 10010110011, 100101100110, 1001011001101, 10010110011010, 100101100110100, 1001011001101001, 10010110011010010, 100101100110100101

Offset: 0

Author

Paul Barry, Jan 06 2005

Keywords

• base
• easy
• nonn

Crossrefs

Cf. A019299.

Programs

Mathematica

With[{tm=Nest[Join[#,Mod[2#+1,3]]&,{1},10]},Table[FromDigits[Take[tm,n]],{n,20}]] (* Harvey P. Dale, May 15 2016 *)

Formula

a(n)=sum{k=0..n, (1+(-1)^A010060(n-k))10^k/2}.