|
| |
| |
|
|
|
1、1、1、2、3、2、2、2、3、2、3、4、3、4、3、4、4、5、4、5、3、3、4、4、5、5、6、4、5、4、4、5、4、5、6、5、5、5、5、5、5、5、5、5、6、5、5、6、6、6、4、4、5、6、5、5、6、6、6、6、6、4、5、4、4、4、5、5、6、7、5、5，6，5，6，7，6，5，6，5，5，6，7，6
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,4
|
|
|
链接
|
弗雷德·里克·巴西诺（Frédérique Bassino）、朱利安·克莱门特（Julien Clement）和西里尔·尼科德（Cyril Nicaud），Lyndon词的标准因式分解：一个平均观点《离散数学》，290-1（2005），1-25。
|
|
|
例子
|
（12211212212211211）的标准Lyndon词因式分解是（122）（112122122）（112）（1）（1”），因此a（17）=5。
1
12
122
122,1
122,1,1
122,112
122,112,1
122,11212
122,112122
122,112122,1
122,11212212
122,112122122
122,112122122,1
122,112122122,1,1
122112122122112
122,112122122,112,1
122,112122122,112,1,1
122,112122122,112,112
122,112122122,1121122
122,112122122,1121122,1
|
|
|
数学
|
LyndonQ[q_]：=数组[OrderedQ[{q，RotateRight[q，#]}]&，Length[q]-1，1，And]&&Array[Rotate右[q，#]&，长度[q]，1，UnsameQ]；
qit[q_]：=如果[#===长度[q]，{q}，前缀[qit[Drop[q，#]]，Take[q，#]]&[Max@@Select[Range[Length[q]]，LyndonQ[Take[q，#]]&]]；
kolagrow[q_]：=如果[Length[q]<2，取[{1，2}，Length[C]+1]，附加[q，切换[{q[[Length[Split[q]]]，部分[q，-2]，最后[q]}，{1，1，1}，0，{1 2，2，2}，1]]]；
表[长度[qit[Nest[kolagrow，1，n]]，{n，150}]
|
|
|
交叉参考
|
囊性纤维变性。A000002号,A001037号,A027375号,A060223级,A088568号,A102659号,A211100型,A281013型,A288605型,A296372型,A296657型,A296659型,A328596型,A329312型,A329316型,A329317飞机.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
