%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日