%I#29 2022年5月27日01:35:10
%S 1,2,3,4,6,7,8,10,12,14,15,16,20,24,26,28,30,31,32,36,40,42,48,50,52,
%第54、56、58、60、62、63、64、72、80、84、96、98101041041041081141161118页,
%电话:120122124126127128136144160164168170192194196200202
%N正m,这样当以二进制形式写入时,m的旋转值都不会大于m。
%C m的旋转值定义为当m移位1、2、…时出现的数字。。。右边的位,前面加上最后的位;例如,1011的旋转值为1011、1101、1110和0111。
%C此序列中的k位二进制数为A008965。当序列被视为表时,这会给出行长度。
%C如果m在序列中,那么2m也是。所有奇数项的形式为2^k-1_Ivan Neretin_,2016年8月4日
%C First与A328595的不同之处在于缺少44,使用二进制展开式{1、0、1、1、0,0}和92,使用二进制扩展式{1,0,1、1,0、0}_Gus Wiseman_,2019年10月31日
%H Ivan Neretin,n的表,n=1..10000的a(n)</a>
%包含e14是因为二进制中的14是1110。1110的旋转值为0111、1011和1101——7、11和13——都小于14。
%p过滤器:=proc(n)局部L,k;
%p如果n::奇数,则返回evalb(n+1=2^ilog2(n+1))fi;
%p L:=转换(转换(n,二进制),字符串);
%p表示k从1到长度(L)-1 do
%p如果不是lexorder(StringTools:-Rotate(L,k),L),则返回false fi;
%p od;
%p为真
%p端程序:
%p选择(过滤器,[1..1000]);#_罗伯特·伊斯雷尔(Robert Israel),2016年8月5日
%t选择[Range[200],#==Max[FromDigits[#,2]和/@NestList[RotateLeft,dg=IntegerDigits[#,2],长度@dg]]&](*_Ivan Neretin_,2016年8月4日*)
%o(Python)
%o定义正常(n):
%o b=箱(n)[2:]
%o返回b>“0”和全部(b[i:]+b[:i]<=范围(1,len(b))中i的b)
%o打印([k代表范围(203)中的k,如果可以(k)])#_Michael S.Branicky_,2022年5月26日
%Y类似的概念是A328595。
%Y忽略最高有效数字的版本是A328668或A328607。
%反向二进制展开为Lyndon单词的Y数字是A328596。
%二进制展开为非周期的Y数是A328594。
%Y二进制项链是A000031。
%Y项链成分为A008965。
%Y参见A000031、A000120、A000740、A001037、A032153、A059966、A163381、A275692。
%K基,nonn,tabf
%O 1,2号机组
%乔纳森·艾尔斯(Jonathan.Ayres(AT)btinternet.com),2001年11月6日
%E编辑:_Franklin T.Adams-Watters_,2010年4月9日
|