%I#12 2017年3月23日11:43:57
%S 0,1,1,1,3,2,3,1,33,3,3,1,2,3,33,1,5,4,7,3,7,5,5,7,7,4,5,1,5,
%温度5,5,4,7,7,3,11,8,13,5,7,2,7,7,17,5,13,8,11,3,7,4,5,5,1,7,
%U 6,7,5,13,9,13,4,15,11,15,7,15,10,11,3,11,11,8,13,13,13,5,13,12,15,7,15,9,11,2,11,9,15,15,15,12,13,5,13,13,8
%N a(2n)=A002487(N),a(2n+1)=A00487(N)或A002486(N+1),其中OR是位或(A003986)。
%H Antti Karttunen,n表,n=0..8192</a>
%H<a href=“/index/Bi#binary”>与n的二进制展开相关的序列的索引项</a>
%F a(2n)=A002487(2n)=A002487(n),a(2n+1)=A002487(n)或A002487(n+1),其中OR是按位或(A003986)。
%Fα(n)=A283977(n)+A283978(n)。
%F a(n)=A002487(n)-A283978(n)。
%ta[0]=0;a[1]=1;a[n_]:=如果[EvenQ@n,a[n/2],a[(n-1)/2]+a[(n+1)/2]];表[If[EvenQ@n,a[n/2],BitOr[a[#],a[#+1]&[(n-1)/2]],{n,0,108}](*_Michael De Vlieger_,2017年3月22日*)
%o(方案)(定义(A283976 n)(如果(偶数?n);;其中A003986bi实现位-OR(A003986)。
%o(PARI)A(n)=如果(n<2,n,如果(n%2,A(n\2)+A((n+1)/2),A(n/2));
%o a(n)=if(n<2,n,if(n%2,位或(a(n\2),a((n+1)/2)));
%o对于(n=0,101,print1(a(n),“,”)\\_Indranil Ghosh,2017年3月23日
%Y等分:A002487,A283986。
%Y参见A002487、A003986、A283977和A283978。
%K nonn,基础
%0、6
%2017年3月21日,安蒂·卡图内
|