

A121808


Say what you see in previous term, reporting each digit encountered followed by frequency.


1



1, 11, 12, 1121, 1321, 122131, 132231, 122232, 112431, 13213141, 14213241, 13223142, 12233241, 12233241, 12233241, 12233241, 12233241, 12233241, 12233241, 12233241, 12233241, 12233241
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS



FORMULA

Constant at 12233241 after 13 terms.


EXAMPLE

To get the term after 13213141, we say: four 1's, one 2, two 3's, one 4; therefore 14213241 (digit named before frequency).


MATHEMATICA

RunLengthEncode[ x_List ] := (Through[ {First, Length}[ #1 ] ] &) /@ Split@ Sort@x; LookAndSay[ n_, d_:1 ] := NestList[ Flatten[ Reverse /@ RunLengthEncode[ # ] ] &, {d}, n  1 ]; F[ n_ ] := LookAndSay[ n, 1 ][ [ n ] ]; Table[ FromDigits[ F[ n ] ], {n, 1, 15} ] (* Robert G. Wilson v Sep 11 2006 *)


CROSSREFS



KEYWORD

base,easy,nonn


AUTHOR

Ross Presser (rpresser(AT)gmail.com), Sep 09 2006


STATUS

approved



