%I#33 2019年11月15日21:36:29
%S 1,2,1211211211221122111121112211212112212212222,
%电话:11111 21111221112112212121212122121122121222222,
%电话:111111 211111221111212111122211121121112122111221211121122
%{1,2}上林登单词的列表,首先按长度排序,然后按字典顺序排序。
%林登词是一个原始词(不是另一个词的幂次),它的字典顺序早于它的任何循环移位。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%H F.Bassino、J.Clement和C.Nicaud,<a href=“http://dx.doi.org/10.1016/j.disc.2004.11.002“>林登单词的标准因式分解:平均观点,《离散数学》290(2005),1-25。
%Hémilie Charlier、Manon Philibert、Manon Stipulanti,<a href=“https://arxiv.org/abs/1804.09735“>Nyldon words</a>,arXiv:1804.09735[math.CO],2018年。见表1。
%H A.M.Uludag、A.Zeytin和M.Durmus,<A href=“http://math.gsu.edu.tr/uludag/CHARKSANDDESSINS.pdf“>作为Dessins的二元二次型,2012.-发件人:N.J.A.Sloane,2012年12月31日
%H维基百科,<a href=“网址:http://en.wikipedia.org/wiki/Lindon_word“>林登语</a>
%H Reinhard Zumkeller,<a href=“/A210585/A210585.hs.txt”>Haskell程序,关于Lyndon单词的一些序列</a>
%H<a href=“/index/Lu#Lyndon”>与Lyndon单词相关的序列索引条目</a>
%F A102659=A102660与A007931=A213969与A239016相交。-_M.F.Hasler,2014年3月10日
%t lynQ[q_]:=数组[Union[{q,RotateRight[q,#]}]=={q,旋转右[q,#]}&,长度[q]-1,1,And];
%t加入@@Table[FromDigits/@Select[Tuples[{1,2},n],lynQ],{n,5}](*_Gus Wiseman_,2019年11月14日*)
%o(Haskell)参见链接。
%o(PARI)是_A102659(n)={vecsort(d=数字(n))!=d&&对于(i=1,#d-1,n>[1,10^(#d-i)]*divrem(n,10^i)&&return);对于div(#d,L,L<#d&&d==concat(Col(vector(#d/L,i,1)~*vecextract(d,2^L-1)))~)&return)!setminus(Set(d),[1,2])}\\最后一个检查是最便宜的一个,但如果我们只测试数字{1,2},就没用了。
%o表示(n=1,6,p=向量(n,i,10^(n-i))~;对于vec(d=向量(n,i,[1,2]),is_A102659(m=d*p)&&打印1(m“,”)),可以使用is_A102660,而不是此处的is_A1026509_M.F.Hasler,2014年3月8日
%Y参见A001037、A074650、A102660、A210584、A210585。
%Y“co”型为A329318。
%Y三角形版本是A296657。
%Y列出所有Lyndon成分的序列是A294859。
%二进制展开式为Lyndon的Y数字是A328596。
%二元展开的Lyndon因式分解的Y长度是A211100。
%Y参见A059966、A060223、A275692、A281013、A296373、A329131、A329313。
%不,简单,好
%O 1,2号机组
%A _N.J.A.Sloane,2005年2月3日
%E更多条款,来自Franklin T.Adams-Waters,2006年12月14日
%E Reinhard Zumkeller改进的定义,2012年3月23日
|