|
Search: id:A158081
|
|
|
| A158081 |
|
Describe the previous term! (method A - initial term is 11). |
|
+0
1
|
|
| 11, 21, 1121, 3121, 132121, 1113122121, 311311222121, 13211321322121, 1113122113121113222121, 31131122211311123113322121, 132113213221133112132123222121
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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
Adjacent sequences: A158078 A158079 A158080 this_sequence A158082 A158083 A158084
Sequence in context: A005151 A098155 A098154 this_sequence A007890 A063850 A005150
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 12 2009
|
|
|
Search completed in 0.002 seconds
|
