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 A056635 #11 Jun 25 2013 13:46:42
%S A056635 0,0,1,1,2,4,5,6,9,12,18,22,30,40,54,72,93,120,157,203,271,364,473,
%T A056635 612,806,1062,1388,1804,2349,3057,4001,5224,6812,8874,11582,15065,
%U A056635 19661,25647,33393,43509,56738,73989,96469,125774,163943,213683,278605
%N A056635 Difference between length (A005341) and sum of digits (A004977) of n-th term in Look and Say Sequence (A005150).
%H A056635 Peter J. C. Moses, <a href="/A056635/b056635.txt">Table of n, a(n) for n = 1..1000</a>
%t A056635 RunLengthEncode[ x_List ] := (Through[ {First, Length}[ #1 ] ] &) /@ Split[ x ]; LookAndSay[ n_, d_:1 ] := NestList[ Flatten[ Reverse /@ RunLengthEncode[ # ] ] &, {d}, n - 1 ]; F[ n_ ] := LookAndSay[ n, 1 ][ [ n ] ]; Table[ Apply[ Plus, F[ n ] ]-Length[ F[ n ] ], {n, 1, 53} ] (* Eric Weisstein *)
%t A056635 p={8,-10,11,-28,33,-2,-11,-34,11,23,3,-10,0,-3,35,-43,-5,46,11,0,-1,-3,-13,-14,-28,24,20,56,-76,0,-5,-29,59,-9,-26,18,-28,55,-1,-34,-33,-21,51,48,-16,-28,-23,24,31,-37,-9,-9,31,21,-16,-19,-11,5,14,3,-1,-4,-1,6,0,-4,-3,0,5,1,-1,-1,-1,0,0,0,1,0,0}; q={6,-9,9,-18,16,-11,14,-8,1,-5,7,2,8,-14,-5,-5,19,3,-6,-7,-6,16,-7,8,-22,17,-12,7,5,7,-8,4,-7,-9,13,-4,-6,14,-14,19,-7,-13,2,-4,18,0,-1,-4,-12,8,-5,0,8,1,7,-8,-5,-2,3,3,0,0,0,0,-2,-1,0,3,1,-1,-1,-1,1}; gf=Fold[x #1+#2&,0,p]/Fold[x #1+#2&,0,q]; CoefficientList[Series[gf,{x,0,99}],x] (* _Peter J. C. Moses_, Jun 24 2013 *)
%K A056635 nonn,base
%O A056635 1,5
%A A056635 _Robert G. Wilson v_, Aug 08 2000