|
%I #16 Sep 08 2022 08:45:38
%S 1,0,1,1,0,1,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,1,1,
%T 0,1,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,1,1,0,1,1,0,
%U 1,1,0,1,0,1,1,0,1,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,1
%N Sturmian word of slope (3-sqrt(3))/2.
%C Since 1 - (3-sqrt(3))/2 has a periodic continued fraction expansion with period 21, (a(n)) is the unique fixed point of the morphism 0 -> 10110, 1 -> 101. - _Michel Dekking_, Feb 05 2017
%D J.-P. Allouche and J. Shallit, Automatic Sequences, Cambridge Univ. Press, 2003, p. 286.
%H Michel Dekking, <a href="/A144612/b144612.txt">Table of n, a(n) for n = 1..2000</a>
%F a(n) = floor((n+1)r) - floor(nr), where r = (3-sqrt(3))/2.
%t Table[(Floor[(n + 1) (3 - Sqrt[3])/2] - Floor[n (3 - Sqrt[3])/2]), {n, 100}] (* _Vincenzo Librandi_, Feb 05 2017 *)
%o (Magma) [Floor((n+1)*(3-Sqrt(3))/2)-Floor(n*(3-Sqrt(3))/2): n in [1..100]]; // _Vincenzo Librandi_, Feb 05 2017
%Y Cf. A188082.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Jan 13 2009
%E Corrected and extended by _Michel Dekking_, Feb 05 2017
|
