A121967 Binary expansion of root of cos x = x.

1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0

Offset

1,1

Links

Table of n, a(n) for n=1..105.

Mathematica

BaseForm[FindRoot[Cos[x] == x, {x, {1}}, WorkingPrecision -> 1000], 2]

Crossrefs

Cf. A003957.

Sequence in context: A103582 A129565 A225145 * A356310 A285430 A284368

Adjacent sequences: A121964 A121965 A121966 * A121968 A121969 A121970

Keyword

base,cons,nonn

Author

Ben Branman, Sep 25 2008

Status

approved