A079050 Sum of the digits of LookAndSay(n).

2, 3, 4, 5, 6, 7, 8, 9, 10, 3, 3, 5, 6, 7, 8, 9, 10, 11, 12, 4, 5, 4, 7, 8, 9, 10, 11, 12, 13, 5, 6, 7, 5, 9, 10, 11, 12, 13, 14, 6, 7, 8, 9, 6, 11, 12, 13, 14, 15, 7, 8, 9, 10, 11, 7, 13, 14, 15, 16, 8, 9, 10, 11, 12, 13, 8, 15, 16, 17, 9, 10, 11, 12, 13, 14, 15, 9, 17, 18, 10, 11, 12, 13

Offset

1,1

Links

Table of n, a(n) for n=1..83.

Example

LookAndSay(23) = 1213, the sum of whose digits = 7, so a(23) = 7.

Mathematica

lookandsay[n_] := Module[{r, d, f, i, l, k}, r = ""; d = IntegerDigits[n]; While[d != {}, f = First[d]; i = 2; l = Length[d]; While[i <= l && d[[i]] == f, i = i + 1]; k = i - 1; r = r <> ToString[k]; r = r <> ToString[f]; d = Drop[d, k]]; ToExpression[r]]; t = Table[Apply[Plus, IntegerDigits[lookandsay[i]]], {i, 1, 100}]

Crossrefs

Sequence in context: A071785 A351868 A325721 * A320109 A278062 A254597

Adjacent sequences: A079047 A079048 A079049 * A079051 A079052 A079053

Keyword

base,nonn

Author

Joseph L. Pe, Feb 02 2003

Status

approved