%I#21 2021年3月31日01:47:40
%S 2,3,5,9,11,17,19,23,33,35,37,39,43,47,65,67,69,71,75,77,79,87,95129,
%电话:131133135137139141143147149151155157159171175183191,
%电话:257259261263267269271275277279281283285287293
%二元展开式的Lyndon因式分解长度为2的N个数(N>1的最小值)。
%C First与A329357的不同之处在于,前者有77个,后者没有83个。
%C也指无头二进制展开式是Lyndon单词的数字(另请参见A329401)。
%F a(n)=A339608(n)+1.-_Harald Korneliussen,2020年3月12日
%e每个项的二进制展开及其Lyndon因子分解开始:
%e 2:(10)=(1)(0)
%e 3:(11)=(1)(1)
%e 5:(101)=(1)(01)
%e 9:(1001)=(1)(001)
%e 11:(1011)=(1)(011)
%e 17:(10001)=(1)(0001)
%e 19:(10011)=(1)(0011)
%e 23:(10111)=(1)(0111)
%e 33:(100001)=(1)(00001)
%e 35:(100011)=(1)(00011)
%e 37:(100101)=(1)(00101)
%e 39:(100111)=(1)(00111)
%e 43:(101011)=(1)(01011)
%e 47:(101111)=(1)(01111)
%e 65:(1000001)=(1)(000001)
%e 67:(1000011)=(1)(000011)
%e 69:(1000101)=(1)(000101)
%e 71:(1000111)=(1)(000111)
%e 75:(1001011)=(1)(001011)
%e 77:(1001101)=(1)(001101)
%t lynQ[q_]:=数组[Union[{q,RotateRight[q,#]}]=={q,旋转右[q,#]}&,长度[q]-1,1,And];
%t lynfac[q_]:=如果[Length[q]==0,{},函数[i,前缀[lynfac[Drop[q,i]],Take[q,i]][Last[Select[Range[Length[q]],lynQ[Take[q,#1]]&]]];
%t选择[Range[100],Length[lynfac[Integer Digits[#,2]]]==2&]
%A211100中2的Y位置。
%Y A329314中长度为2的行的位置。
%Y“共同”和反向版本为A329357。
%Y二进制Lyndon单词按A001037计数,按A102659排名。
%二进制展开的co-Lyndon因子分解的Y长度是A329312。
%Y参见A059966、A060223、A211097、A275692、A328594、A328585、A32859、A329131、A329313、A329325、A32932、A339608。
%K nonn公司
%O 1,1
%A _Gus Wiseman_,2019年11月12日
|