%我#51 2024年3月24日13:17:40

%S 0,1,0,1,4,5,5,0,1,1,4,1,5,4,4,6,16,17,17,20,21,16,17,16,17，

%温度20,21,20,21,1,0,1,4,5,5,0,1,1,0,1,4,5,1,5,4,16,17,17,20,21，

%U 16,17,16,17,20,21,20,21，64,65，64,65,68，69,64，65,64，64,64，65，68，69，68

%N从N的二进制展开式中删除奇位。

%C a（n）是x*n的形式导数（提升到Z[x]后在x=2处计算），其中n通过其二进制展开被解释为GF（2）[x]中的多项式_基思·鲍尔（Keith J.Bauer），2024年3月17日

%H Reinhard Zumkeller，n表，n=0..10000的a（n）</a>

%H Ralf Stephan，一些分治序列</a>

%H Ralf Stephan，生成函数表</a>

%F a（n）=和{k>=0}（-1）^k*2^k*楼层（n/2^k）。

%F a（n）+A063695（n）=n。

%F a（n）=n-2*a（楼层（n/2））_Vladeta Jovovic_，2003年2月23日

%系数：1/（1-x）*Sum_{k>=0}（-2）^k*x^2^k/（1-x^2*k）_Ralf Stephan，2003年5月5日

%F a（n）=4*a（楼层（n/4））+（n mod 4）mod 2.-_Reinhard Zumkeller，2015年9月26日

%F a（n）=总和{k>=0}A030308（n，k）*A199572（k）.-_菲利普·德雷厄姆，2023年1月12日

%e a（25）=17，因为二进制中25=11001，当我们用10101与这个and时，剩下的是10001=17。

%p every_other_pos：=进程（nn，x，w）局部n，i，s；n：=nn；i:=0；s：=0；而（n>0）如果（（i mod 2）=w）则s：=s+（（x^i）*（n mod x））；fi；n:=地板（n/x）；i:=i+1；od；申报表；结束：[seq（every_other_pos（j，2，0），j=0..120）]；

%t a[n_]：=位与[n，和[2^k，{k，0，对数[2，n]//楼层，2}]]；表[a[n]，{n，0，100}]（*Jean-François Alcover_，2016年2月28日*）

%o（PARI）a（n）=总和（k=0，n，（-1）^k*2^k*楼层（n/2^k））/*自n>ceil起（log（n）/log（2））*/

%o（PARI）a（n）=如果（n<0.0，总和（k=0，n，（-1）^k*2^k*楼层（n/2^k））/*自n>ceil（log（n）/log（2））*/

%o（哈斯克尔）

%o a063694 0=0

%o a063694 n=4*a063694n’+修改q 2

%o其中（n'，q）=divMod n 4

%o——_ Inhard Zumkeller_，2015年9月26日

%o（岩浆）

%o功能A063694（n）

%o如果n le 1，则返回n；

%o否则返回4*A063694（楼层（n/4））+（（n mod 4）mod 2）；

%o结束条件：；返回A063694；

%o端函数；

%o[0..120]]中的[A063694（n）：n；//_G.C.Greubel，2022年12月5日

%o（SageMath）

%o定义A063694（n）：

%o如果（n<2）：返回n

%o其他：返回4*A063694（楼层（n/4））+（（n%4）%2）

%o[A063694（n）代表范围（121）内的n]#_G.C.Greubel_，2022年12月5日

%o（Python）

%o定义A063694（n）：返回n&（（1<<（m:=n.bit_length（））+（m&1））-1）//3#_Chai Wah Wu_，2023年1月30日

%Y参见A004514、A063695（移除均匀定位钻头）、A088442。

%K nonn，基础，简单

%0、5

%安提·卡图内，2001年8月3日