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,5

Links

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

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

Crossrefs

Sequence in context: A166944 A073894 A341496 * A288429 A163116 A003306

Adjacent sequences: A056632 A056633 A056634 * A056636 A056637 A056638

Keyword

nonn,base

Author

Robert G. Wilson v, Aug 08 2000

Status

approved