(方案:)(定义(A122155n) (条件((<n 1)n)((pow2?n)n)(其他(-(*2(A053644号n) )(A053645号n) )))
(定义(pow2?n)(和(>n0)(零?(A004198bi n(-n1))))
(PARI)a(n)=位异或(n,如果(n,max(0,1<<逻辑(n,2)-2<<赋值(n,2))))\\凯文·里德2020年12月29日
(右)
maxblock<-5#可选择
a<-1
对于(m in 1:maxblock){
a[2^m]<-2^m
对于(k in 1:(2^m-1))a[2^m+k]<-2^(m+1)-k
}
(a<-c(0,a))
#尤拉门迪2021年3月18日
|