%I#8 2012年12月29日18:03:38
%S 1,0,1,0,1,0,1,0,0,0,1,1,1,0,0,0,1,1,1,0,0,
%T 1,1,1,1,0,0,00,0,1,1,1,0,1,0,1,0,0,1,0,2,0,1,1,0,1,0,
%U 0,0,1,1,0,1,0,0,0,0,1,0,0,0,0
%基于序列N(N+2)的N零一序列:a(A005563(k))=a(k);a(A183299(k))=1-a(k),a(1)=0,a(2)=1。
%t u[n]:=n(n+2);(*A005563*)
%ta[1]=0;a[2]=1;h=128;
%t c=(u[#1]&)/@范围[2h];
%t d=(补码[范围[Max[#1]],#1]&)[c];(*A183299*)
%t表[a[d[[n]]=1-a[n],{n,1,h-1}];(*A189169*)
%t表[a[c[[n]]]=a[n],{n,1,h}](*A189169*)
%t压扁[位置[%,0]](*A189170*)
%t压扁[位置[%%,1]](*A189171*)
%Y参见A188967、A189170、A189171、A189166。
%K nonn公司
%O 1号机组
%A_Clark Kimberling_,2011年4月17日
|