Search: id:A158081
Results 1-1 of 1 results found.

%I A158081
%S A158081 11,21,1121,3121,132121,1113122121,311311222121,13211321322121,
%T A158081 1113122113121113222121,31131122211311123113322121,
%U A158081 132113213221133112132123222121
%N A158081 Describe the previous term! (method A - initial term is 11).
%C A158081 11 as being interesting because it gives 2 ones:
%C A158081 21 as the second term.
%C A158081 Used is the code by Zerinvary Lajos (zerinvarylajos(AT)yahoo.com)
%D A158081 Marcus Du Sautoy, Symmetry: A Journey into the Patterns of Nature,Harper 
               (March 11, 2008),page 96
%t A158081 Clear[F, n];
%t A158081 RunLengthEncode[ x_List ] := (Through[ {First, Length}[ #1 ] ] &) /@ 
               Split[ x ];
%t A158081 LookAndSay[ n_, d_:1 ] := NestList[ Flatten[ Reverse /@ RunLengthEncode[ 
               # ] ] &, { d}, n - 1 ];
%t A158081 F[ n_ ] := LookAndSay[ n, 11 ][ [ n ] ];
%t A158081 Table[ FromDigits[ F[ n ] ], {n, 1, 20} ]
%Y A158081 A006715, A006751, A001141
%Y A158081 Sequence in context: A005151 A098155 A098154 this_sequence A007890 A063850 
               A005150
%Y A158081 Adjacent sequences: A158078 A158079 A158080 this_sequence A158082 A158083 
               A158084
%K A158081 nonn,uned
%O A158081 1,1
%A A158081 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 12 2009

Search completed in 0.001 seconds