登录
对k进行编号,使第k个成分按标准顺序排列(第k行A066099型)具有弱减少的非相邻部分。

%I#10 2020年5月25日08:35:12

%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,15,16,17,18,19,20,21,22,23,24,25,27,

%电话:31,32,33,34,35,36,37,38,39,40,41,42,43,45,47,48,49,51,55,63,64,65,66,

%U 67、68、69、70、71、72、73、74、75、76、77、79、80、81、82、83、85、86、87

%N编号k,使标准顺序的第k个成分(A066099的第k行)具有弱递减的非相邻部分。

%C通过在k的反向二进制展开式中取1的一组位置,在前面加上0,取第一个差分,然后再次反转,得到标准顺序的第k个成分(分级反向图解,A066099)。这给出了非负整数和整数合成之间的双向对应。

%C补语开始:14、26、28、29、30、44、46、50。。。

%e序列和相应的组成开始:

%e 0:()17:(4,1)37:(3,2,1)

%e 1:(1)18:(3,2)38:(3,1,2)

%e 2:(2)19:(3,1,1)39:(3,1,1,1)

%e 3:(1,1)20:(2,3)40:(2,4)

%e 4:(3)21:(2,2,1)41:(2,3,1)

%e 5:(2,1)22:(2,1,2)42:(2,2,2)

%e 6:(1,2)23:(2,1,1,1)43:(2,2,1,1)

%e 7:(1,1,1)24:(1,4)45:(2,1,2,1)

%e 8:(4)25:(1,3,1)47:(2,1,1,1,1)

%e 9:(3,1)27:(1,2,1,1)48:(1,5)

%e 10:(2,2)31:(1,1,1,1)49:(1,4,1)

%e 11:(2,1,1)32:(6)51:(1,3,1,1)

%e 12:(1,3)33:(5,1)55:(1,2,1,1,1)

%e 13:(1,2,1)34:(4,2)63:(1,1,1,1,1)

%e 15:(1,1,1,1)35:(4,1,1)64:(7)

%e 16:(5)36:(3,3)65:(6,1)

%e例如,(2,3,1,2)是这样的组合,因为非相邻对是(2,1),(2,2),(3,2),所有这些都是弱递减的,所以166在序列中

%t stc[n_]:=差异[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//反向;

%t选择[范围[0100],!匹配Q[stc[#],{___,x_,__,y_,___}/;y> x]&]

%Y正常序列的情况似乎是A028859。

%Y严格成分为A032020。

%Y有序集分区的版本是A332872。

%Y这些成分由A333148列举。

%Y严格的案例由A333150列举。

%Y参见A072706、A072707、A227038、A332834、A333193。

%K非n

%氧1,3

%A _Gus Wiseman_,2020年5月18日