|
Search: id:A007651
|
|
|
| A007651 |
|
Describe the previous term! (method B - initial term is 1).
(Formerly M4768)
|
|
+0
18
|
|
| 1, 11, 12, 1121, 122111, 112213, 12221131, 1123123111, 12213111213113, 11221131132111311231, 12221231123121133112213111, 1123112131122131112112321222113113
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Method B = 'digit'-indication followed by 'frequency'.
|
|
EXAMPLE
|
E.g. the term after 1121 is obtained by saying "1 twice, 2 once, 1 once", which gives 122111.
|
|
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[ FromDigits[ Reverse[ F[ n ] ] ], {n, 1, 15} ]
|
|
CROSSREFS
|
Cf. A005150, A022470, A022499, A022500-A022505.
Adjacent sequences: A007648 A007649 A007650 this_sequence A007652 A007653 A007654
Sequence in context: A042731 A087304 A121808 this_sequence A022481 A034080 A107805
|
|
KEYWORD
|
nonn,base,easy,nice
|
|
AUTHOR
|
njas
|
|
|
Search completed in 0.002 seconds
|
