%I #59 May 28 2024 22:13:14
%S 0,1,1,0,1,1,0,1,1,1,1,1,0,1,1,0,1,1,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,
%T 1,1,1,1,1,0,1,1,0,1,1,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,1,1,1,0,1,
%U 1,0,1,1,1,1,1,0,1,1,0,1,1,1,1,1,0,1,1,0,1,1,1,1,1,0,1,1,0,1,1
%N Binary expansion of Thue constant (or Roth's constant).
%C a(0)=0; to construct the sequence start with a(1)=1, then concatenate twice and change the last term 1->0 giving 1,1,0. Concatenate those 3 terms twice giving 1,1,0,1,1,0,1,1,0, change the last term 0->1 giving 1,1,0,1,1,0,1,1,1. Concatenate those 9 terms twice and change the last term 1->0, etc. - _Benoit Cloitre_, Feb 09 2003
%C It is probably my fault if this constant is misattributed. It was "computed" circa 1971 by a very simple Life pattern (as a diagonal row of blinkers), an obvious case of the (Thue-Siegel-)Roth criterion for transcendence, since the error after 3^n bits is ~2^-3^(n+1) = O(denominator^-3). I probably should have called it Roth's constant. - _Bill Gosper_, Mar 19 2004
%C a(0) = 0; then fixed point of the morphism 1->110, 0->111, starting with a(1) = 1. - _Philippe Deléham_, Mar 21 2004
%C Characteristic function of A007417, i.e., a(n) = 1 if n is in A007417 and a(n) = 0 otherwise. - _Philippe Deléham_, Mar 21 2004
%C Multiplicative with a(3^e) = (e+1)%2, a(p^e) = 1 otherwise. - _David W. Wilson_, Jun 10 2005
%C a(A145204(n)) = 0, a(A007417(n)) = 1. - _Reinhard Zumkeller_, Oct 04 2008
%C 1 if the ternary representation of n has an even number of trailing zeros. - _Ralf Stephan_, Sep 02 2013
%H Antti Karttunen, <a href="/A014578/b014578.txt">Table of n, a(n) for n = 0..100000</a>
%H Joerg Arndt, <a href="http://www.jjj.de/fxt/#fxtbook">Matters Computational (The Fxtbook)</a>, section 38.2, pp.730-731
%H Michael Gilleland, <a href="/selfsimilar.html">Some Self-Similar Integer Sequences</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ThueSequence.html">Thue Sequence</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ThueConstant.html">Thue Constant</a>
%H <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%H <a href="/index/Fi#FIXEDPOINTS">Index entries for sequences that are fixed points of mappings</a>
%F a(0)=0; for n>=1, a(n)=sum(k>=0, (-1)^k*(floor(n/3^k)-floor((n-1)/3^k))). - _Benoit Cloitre_, Jun 03 2003
%F a(0)=0, a(3k)=1-a(k); a(3k+1)=a(3k+2)=1. - _Benoit Cloitre_, Mar 19 2004
%F Sum_{k=0..3^n} a(k) = A015518(n+1) = (-1)^n*A014983(n+1). - _Philippe Deléham_, Mar 31 2004
%F a(n) = 1 - A007949(n) mod 2 for n>0. - _Reinhard Zumkeller_, Oct 04 2008
%F Let T(x) be the g.f., then T(x) + T(x^3) = x/(1-x). - _Joerg Arndt_, May 11 2010
%F Asymptotic mean: lim_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 3/4. - _Amiram Eldar_, Jul 13 2020
%e Start: 1
%e Rules:
%e 1 --> 110
%e 0 --> 111
%e -------------
%e 0: (#=1)
%e 1
%e 1: (#=3)
%e 110
%e 2: (#=9)
%e 110110111
%e 3: (#=27)
%e 110110111110110111110110110
%e 4: (#=81)
%e 110110111110110111110110110110110111110110111110110110110110111110110111110110111
%e - _Joerg Arndt_, Jul 06 2011
%t Nest[ Flatten[ # /. {0 -> {1, 1, 1}, 1 -> {1, 1, 0}}] &, {0}, 6] (* _Robert G. Wilson v_, Mar 09 2005 *)
%o (PARI) a(n)=if(n<1,0,sum(k=0,ceil(log(n)/log(3)),(-1)^k*(floor(n/3^k)-floor((n-1)/3^k))));
%o (PARI) A014578(n) = if(!n,n,valuation(n, 3)%2==0); \\ _Ralf Stephan_, Sep 02 2013, edited for the term a(0)=0 - _Antti Karttunen_, May 28 2024
%Y Cf. Thue-Morse or parity constant A010060.
%Y Cf. A154271.
%K nonn,cons,mult
%O 0,1
%A _Eric W. Weisstein_