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 A064654 #13 Oct 02 2014 18:03:07 %S A064654 1,3,2,3,2,2,2,4,3,1,2,2,2,3,2,2,3,3,2,5,2,1,2,2,2,2,2,4,3,4,3,1,1,2, %T A064654 2,1,2,3,2,2,1,2,2,2,2,5,3,1,2,2,2,1,2,4,2,2,3,3,2,2,3,1,2,4,1,2,3,1, %U A064654 2,3,3,4,2,2,3,5,1,2,2,1,1,3,3,1,2,2,2,4,2,2,5,1,1,2,3,1,1,5,2,4,1,3,3,3,1,1 %N A064654 Length of n-th run of evens or odds in A064413. %C A064654 Also gives lengths of runs of zeros and ones in A195376. %H A064654 Reinhard Zumkeller, <a href="/A064654/b064654.txt">Table of n, a(n) for n = 1..10000</a> %H A064654 J. C. Lagarias, E. M. Rains and N. J. A. Sloane, <a href="http://arXiv.org/abs/math.NT/0204011">The EKG sequence</a>, Exper. Math. 11 (2002), 437-446. %H A064654 <a href="/index/Ed#EKG">Index entries for sequences related to EKG sequence</a> %o A064654 (Haskell) %o A064654 import Data.List (group) %o A064654 a064654 n = a064654_list !! (n-1) %o A064654 a064654_list = map length $ group a195376_list %o A064654 -- _Reinhard Zumkeller_, Sep 17 2001 %Y A064654 Cf. A064413, A064655, A065656. %K A064654 nonn,easy %O A064654 1,2 %A A064654 _N. J. A. Sloane_, Oct 09 2001 %E A064654 More terms from _Matthew Conroy_, Oct 16 2001