|
| |
|
|
A056635
|
|
Difference between length (A005341) and sum of digits (A004977) of n-th term in Look and Say Sequence (A005150).
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
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} ] - from Eric Weisstein
|
|
|
CROSSREFS
| Sequence in context: A089969 A166944 A073894 * A163116 A003306 A136585
Adjacent sequences: A056632 A056633 A056634 * A056636 A056637 A056638
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 08 2000
|
| |
|
|
