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 A030337 #12 Jul 13 2013 12:01:54 %S A030337 1,1,3,1,1,1,2,2,5,1,1,2,1,1,2,1,1,1,1,2,1,1,1,3,1,1,1,2,2,2,3,3,7,2, %T A030337 2,3,1,1,2,1,1,1,3,1,1,1,2,1,1,2,1,1,1,1,1,1,2,3,2,1,1,1,1,1,1,2,1,1, %U A030337 1,1,2,1,1,1,3,1,1,1,2,1,1,1,1,2,1,1,2,1,4,2 %N A030337 Length of n-th run of digit 1 in A003137. %H A030337 Reinhard Zumkeller, <a href="/A030337/b030337.txt">Table of n, a(n) for n = 1..10000</a> %o A030337 (Haskell) %o A030337 import Data.List (group) %o A030337 a030337 n = a030337_list !! (n-1) %o A030337 a030337_list = map length $ filter ((== 1) . head) $ group a003137_list %o A030337 -- _Reinhard Zumkeller_, Feb 21 2013 %Y A030337 Cf. A030336, A030338, A030333. %K A030337 nonn,base %O A030337 1,3 %A A030337 _Clark Kimberling_