A144609 - OEIS

A144609

Sturmian word of slope Pi.

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, 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, 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

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,1

COMMENTS

A063438 seems to contain the run lengths of 1's. - R. J. Mathar, May 30 2025

LINKS

Table of n, a(n) for n=0..104.

MAPLE

Digits := 500 :

x :=1 ;

y :=0 ;

slop := Pi ;

printf("0, ") ;

for n from 1 to 300 do

if evalf((y+1)/x-slop) > 0 then

x := x+1 ;

printf("0, ") ;

else

y := y+1 ;

printf("1, ") ;

end if;

end do: # R. J. Mathar, May 30 2025

MATHEMATICA

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 *)

CROSSREFS

See A144595 for further details.

Seems to be very similar to A070127. Is this a coincidence?

Cf. A063438, A076539 (partial sums).

Sequence in context: A046978 A075553 A131729 * A115517 A351039 A022930

Adjacent sequences: A144606 A144607 A144608 * A144610 A144611 A144612

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Jan 13 2009

STATUS

approved