|
Search: id:A056635
|
|
| |
|
| 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; listen)
|
|
|
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 this_sequence A163116 A003306 A136585
Adjacent sequences: A056632 A056633 A056634 this_sequence A056636 A056637 A056638
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 08 2000
|
|
|
Search completed in 0.002 seconds
|