|
（PARI）a（n）=比特异或（n，n>>1）；
（PARI）a（n）=总和（k=1，n，（-1）^（（k/2^估值（k，2）-1）/2）*2^估值
（C） int a（int n）{返回n^（n>>1）；}
（Magma）//递归算法
N:=10；s：=[[]]；
[1..n]do中的n
对于[#s..1乘-1]中的j
追加（~s，追加（s[j]，1）；
追加（~s[j]，0）；
结束；
结束；
[SequenceToInteger（b，2）:b in s]//杰森·金伯利2012年4月2日
（Magma）//直接算法
I2B:=func<i|[b eq 1:b in IntegerToSequence（i，2）]>；
B2I:=func<s|SequenceToInteger（[b select 1，else 0:b in s]，2）>；
[B2I（Xor（I2B（i），I2B，i div 2）cat[false]））：[1.127]]中的i//杰森·金伯利2012年4月2日
（哈斯克尔）
导入数据。位（xor，shiftR）
a003188 n=n`xor`（shiftR n 1）：：整数
（Python）
返回int（bin（n^（n/2））[2:]，2）#因德拉尼尔·戈什2017年1月23日
（Python）
（右）
maxn<-63#可选
a<-1
for（n in 1:maxn）{a[2*n]<-2*a[n]+（n%%2！=0）
a[2*n+1]<-2*a[n]+（n%%2==0）}
（a<-c（0，a））
（C#）
静态单位a（此单位n）=>（n>>1）^n//弗兰克·霍尔斯坦2021年3月12日
| 