A056635 Difference between length (A005341) and sum of digits (A004977) of n-th term in Look and Say Sequence (A005150).

0, 0, 1, 1, 2, 4, 5, 6, 9, 12, 18, 22, 30, 40, 54, 72, 93, 120, 157, 203, 271, 364, 473, 612, 806, 1062, 1388, 1804, 2349, 3057, 4001, 5224, 6812, 8874, 11582, 15065, 19661, 25647, 33393, 43509, 56738, 73989, 96469, 125774, 163943, 213683, 278605

Offset: 1

Author

Robert G. Wilson v, Aug 08 2000

Keywords

• nonn
• base

Links

• Peter J. C. Moses, Table of n, a(n) for n = 1..1000

Programs

Mathematica

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 *)
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 *)