|
| |
|
|
A158081
|
|
Describe the previous term! (method A - initial term is 11).
|
|
0
| |
|
|
11, 21, 1121, 3121, 132121, 1113122121, 311311222121, 13211321322121, 1113122113121113222121, 31131122211311123113322121, 132113213221133112132123222121
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 11 as being interesting because it gives 2 ones:
21 as the second term.
Used is the code by Zerinvary Lajos (zerinvarylajos(AT)yahoo.com)
|
|
|
REFERENCES
| Marcus Du Sautoy, Symmetry: A Journey into the Patterns of Nature,Harper (March 11, 2008),page 96
|
|
|
MATHEMATICA
| Clear[F, n];
RunLengthEncode[ x_List ] := (Through[ {First, Length}[ #1 ] ] &) /@ Split[ x ];
LookAndSay[ n_, d_:1 ] := NestList[ Flatten[ Reverse /@ RunLengthEncode[ # ] ] &, { d}, n - 1 ];
F[ n_ ] := LookAndSay[ n, 11 ][ [ n ] ];
Table[ FromDigits[ F[ n ] ], {n, 1, 20} ]
|
|
|
CROSSREFS
| A006715, A006751, A001141
Sequence in context: A005151 A098155 A098154 * A007890 A063850 A005150
Adjacent sequences: A158078 A158079 A158080 * A158082 A158083 A158084
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 12 2009
|
| |
|
|
