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 A233836 #6 Oct 11 2020 15:49:34 %S A233836 1,1,2,1,1,1,1,5,1,2,4,2,2,2,2,2,7,2,3,1,4,2,2,2,1,2,1,4,1,3,1,1,2,2, %T A233836 1,1,5,1,2,3,1,2,2,1,2,2,2,1,3,1,1,1,1,1,1,2,1,1,1,1,1,1,5,1,1,2,5,3, %U A233836 3,1,1,1,2,1,4,1,2,5,1,1,3,1,1,1,1,3 %N A233836 Run lengths of ones and zeros in binary expansion of sqrt(2), cf. A004539. %H A233836 Reinhard Zumkeller, <a href="/A233836/b233836.txt">Table of n, a(n) for n = 1..10000</a> %e A233836 . A004539: 1 0 1 1 0 1 0 1 0 0 0 0 0 1 0 0 1 1 1 1 0 0 1 1 0 0 1 1 ... %e A233836 . runs: _ _ ___ _ _ _ _ _________ _ ___ _______ ___ ___ ___ ___ ... %e A233836 . lengths: 1 1 2 1 1 1 1 5 1 2 4 2 2 2 2 ... %t A233836 Length/@Split[RealDigits[Sqrt[2],2,300][[1]]] (* _Harvey P. Dale_, Oct 11 2020 *) %o A233836 (Haskell) %o A233836 import Data.List (group) %o A233836 a233836 n = a233836_list !! (n-1) %o A233836 a233836_list = map length $ group a004539_list %Y A233836 Cf. A084186, A084187, A175911. %K A233836 nonn %O A233836 1,3 %A A233836 _Reinhard Zumkeller_, Dec 16 2013