%I#48 2022年11月24日04:21:02
%S 1,3,3,7,5,7,7,15,9,11,11,15,13,15,15,15,31,17,19,19,23,21,23,31,25,
%电话:27,27,31,29,31,31,61,63,33,35,35,39,37,39,47,41,43,47,45,47,63,
%U 49,51,51,55,53,55,63,57,59,59,63,61,63127,65,67,67,71,69,71
%N将N的二进制表示中的所有尾随0替换为1。
%C a(k+1)=大于k的最小数,其二进制表示形式正好比k多一个1;A000120(a(n))=A063787(n).-_Reinhard Zumkeller,2010年7月31日
%C a(n)是最小m>=n-1,使得汉明距离D(n-1,m)=1_Vladimir Shevelev,2012年4月18日
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%H Ralf Stephan,一些分治序列</a>
%H Ralf Stephan,生成函数表</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/BinaryCarrySequence.html“>二进制进位序列</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/OddPart.html“>奇数部分</a>
%H<a href=“/index/Bi#binary”>与n的二进制展开相关的序列的索引项</a>
%F a(n)=n+2^A007814(n)-1。
%F a(n)是奇数;a(n)=n当n是奇数时。
%Fα(a(n))=α(n);A007814(a(n))=一(n);A000265(a(n))=一(n)。
%F A023416(a(n))=A023416-A007814(n)=A086784(n。
%F A000120(a(n))=A000120。
%F a(2^n)=a(A000079(n))=2*2^n-1=A000051(n+1)。
%F a(n)=如果n是奇数,则n是a(n/2)*2+1。
%F a(n)=A006519(n)+n-1.-_Reinhard Zumkeller_,2007年2月2日
%F a(n)=n OR n-1(连续数的位OR)_Russ Cox,2007年5月15日
%F a(2*n)=A038712(n)+2*n.-Reinhard Zumkeller_,2011年8月7日
%F a((2*n-1)*2^p)=2^(p+1)*n-1,p>=0.-_Johannes W.Meijer,2013年2月1日
%F和{k=1..n}a(k)~n^2/2+(1/(2*log(2)))*n*log_阿米拉姆·埃尔达尔,2022年11月24日
%e a(20)=a(10100)=10100+11=10111=23。
%p nmax:=70:对于从0到ceil的p(simplize(log[2](nmax))),对于从1到ceil(nmax/(p+2))的n,执行a((2*n-1)*2^p):=2^(p+1)*n-1 od:od:seq(a(n),n=1..nmmax);#_Johannes W.Meijer,2013年2月1日
%t表[BitOr[(n+1),n],{n,0,100}](*_Vladimir Joseph Stephan Orlovsky_,2011年7月19日*)
%o(C)int a(int n){return n|(n-1);}//_Russ Cox_,2007年5月15日
%o(哈斯克尔)
%o a086799 n |偶数n=(a086799$div n 2)*2+1
%o |否则=n
%o--_Reinhard Zumkeller_2011年8月7日
%o(PARI)a(n)=比特(n,n-1)\\查尔斯·格里特豪斯IV,2012年4月17日
%o(Python)
%o定义a(n):返回n |(n-1)
%o打印([a(n)代表范围(1,71)中的n)]#_Michael S.Branicky_,2022年7月13日
%Y参见A000051、A000079、A000120、A000265、A001620、A006519、A007814、A023416、A038712、A063787、A086784。
%Y另请参阅A007088、A179857、A220466。
%K nonn,基础
%O 1,2号机组
%A _Reinhard Zumkeller,2003年8月5日
|