This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A182101 #11 Aug 21 2017 13:11:46
%S A182101 0,1,0,1,2,3,4,3,4,3,2,3,4,3,4,3,2,3,2,3,2,3,4,5,4,5,6,7,6,7,8,7,6,5,
%T A182101 4,3,4,5,6,7,6,5,6,7,8,7,6,5,6,5,6,7,6,7,8,7,8,9,10,9,8,9,8,9,8,9,10,
%U A182101 9,10,9,10
%N A182101 Random walk determined by the binary digits of the Dottie number, A003957.
%C A182101 Start at a(0)=0. Each 0 in the binary expansion corresponds to a step of -1, while a 1 corresponds to a step of +1.
%C A182101 Partial sums of the sequence 2*A121967(n)-1.
%C A182101 The first time a(n) is negative is n=93.
%H A182101 G. C. Greubel, <a href="/A182101/b182101.txt">Table of n, a(n) for n = 0..5000</a>
%e A182101 a(5)=3, and the sixth bit of the Dottie number is 1, so a(6)=4.
%e A182101 On the other hand, the seventh bit of the Dottie number is 0, so a(7)=3.
%t A182101 Accumulate[RealDigits[FindRoot[Cos[x] == x, {x, 0}, WorkingPrecision -> 1000][[1, -1]], 2][[1]] 2 - 1]
%Y A182101 Cf. A003957, A121967, A166006 (analogous sequence for Pi).
%K A182101 sign,base
%O A182101 0,5
%A A182101 _Ben Branman_, Apr 11 2012