登录
OEIS由支持OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A296659型 前n项的标准Lyndon词因子分解中最后一个词的长度A000002号. 1
1, 2, 3, 1, 1, 3, 1, 5, 6, 1, 8, 9, 1, 1, 3, 1, 1, 3, 7, 1, 9, 1, 1, 3, 1, 14, 15, 1, 1, 3, 1, 1, 3, 1, 8, 9, 1, 11, 12, 1, 1, 3, 1, 17, 18, 1, 20, 1, 1, 3, 1, 1, 3, 27, 1, 29, 30, 1, 1, 3, 1, 35, 36, 1, 38, 39, 1, 1, 3, 1, 1, 3, 1, 8, 9, 1, 11, 1, 1, 3, 15, 1 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
弗雷德·里克·巴西诺(Frédérique Bassino)、朱利安·克莱门特(Julien Clement)和西里尔·尼科德(Cyril Nicaud),Lyndon词的标准因式分解:一个平均观点《离散数学》,290-1,(2005),1-25。
例子
最后一个单词的顺序是:1、12、122、1、1、112、1、11212、112122、1,11212212、1121221、1,1,112、1,112,1121122、1,1112212、1,11,112,1,11221211212、112、1122121122、112212112、112112112、112112、112、112。
数学
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]]];
表[长度[Last[qit[Nest[kolagrow,1,n]]],{n,150}]
交叉参考
关键字
非n
作者
古斯·怀斯曼2017年12月18日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新的seq。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年4月23日11:35 EDT。包含371912个序列。(在oeis4上运行。)