登录
A296658型
前n项的标准Lyndon词分解的长度A000002号.
15
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
链接
弗雷德·里克·巴西诺(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}]
关键词
非n
作者
古斯·怀斯曼2017年12月18日
状态
经核准的