|
%I #7 Oct 08 2017 20:32:13
%S 0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,1,0,
%T 1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,1,0,1,1,1,0,1,
%U 1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1
%N Sturmian word of slope Pi.
%t christoffel[s_, M_] := Module[{n, x = 1, y = 0, ans = {0}}, Do[ If[y + 1 <= s*x, AppendTo[ans, 1]; y++, AppendTo[ans, 0]; x++], {n, 1, M}]; ans]; christoffel[Pi, 105] (* _Robert G. Wilson v_, Feb 02 2017, after _Jean-François Alcover_, Sep 19 2016, A274170 *)
%Y See A144595 for further details.
%Y Seems to be very similar to A070127. Is this a coincidence?
%K nonn
%O 0,1
%A _N. J. A. Sloane_, Jan 13 2009
|
