|
|
|
|
1, 1, 1, 2, 3, 2, 3, 2, 2, 3, 2, 2, 3, 4, 3, 4, 5, 4, 3, 4, 3, 4, 5, 4, 5, 3, 3, 4, 5, 4, 5, 6, 5, 6, 4, 4, 5, 4, 4, 5, 6, 5, 6, 4, 4, 5, 4, 5, 6, 5, 6, 7, 6, 4, 5, 4, 4, 5, 6, 5, 6, 4, 4, 5, 4, 4, 5, 6, 5, 6, 7, 6, 7, 5, 5, 6, 5, 6, 7, 6, 5, 6, 5, 5, 6, 7, 6
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
链接
|
n=1..87时的n,a(n)表。
弗雷德·里克·巴西诺(Frédérique Bassino)、朱利安·克莱门特(Julien Clement)和西里尔·尼科德(Cyril Nicaud),Lyndon词的标准因式分解:一个平均观点《离散数学》,290-1(2005),1-25。
|
|
例子
|
(12211212212211211)的标准Lyndon词因式分解是(122)(112122122)(112)(1)(1”),因此a(17)=5。
初始项的标准分解A000002号:
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
122,112122122,112
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}]
|
|
交叉参考
|
的行长度A329315型.
“共同”版本是A329362型.
囊性纤维变性。A000002号,A001037号,A027375号,A060223号,A088568号,A102659号,A211100型,A281013型,A288605型,A296372型,A296657型,A296659型,A328596型,A329312型,A329316型,A329317飞机.
上下文中的序列:A244228号 A023397号 A258115型*A276862型 A175066号 A066102号
相邻序列:A296655型 A296656型 A296657型*A296659型 A296660型 A296661型
|
|
关键词
|
非n
|
|
作者
|
古斯·怀斯曼2017年12月18日
|
|
状态
|
经核准的
|
|
|
|