%I#6 2024年4月30日17:05:28
%S 0,0,2,0,0,1,0,0.0,-1,0,0,-1,1,0,1,-1,0,0,3,-1,-1,5,0,2,-1,3,0,0-0,
%T 3,2,0,-1,0,0,0,0,0,1,0,2,0,0,
%U 0,0,0,1,0,0,0,00,0_0,0,-1,0,-2,0,0-0,0.0,0,0.0,0:0,0,3,0,5,-2,0,0,0,1,0,2,3,-1
%N由向上反对偶读取的数组:A(N,k)=A372356(1+N,k。
%e阵列开始:
%电子邮箱|1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 20 21
%电子---+-----------------------------------------------------------------------------
%e 1 |0,2,0,-1,1,-1,2,-1,3,3,0,-2,-2,-1,-1,-2,-5,1,1,
%e 2|0,0,0,-1,-1,3,0,-2,2,-1,0,5,3,1,-1,-2,-2,2-,-1,0-,
%e 3|0,0,0,3,-1,2,0,5,0,-1,0,2,-1,-1,1,3,0,-1,-2,-2,
%e 4|0,0,0,2,3,0,0,2,0,3,0,0,-1,-2,2,-1,-1,0,3,4,1,
%e 5|0,0,0,0,2,0,0,0,0,1,0,3,1,0,2,-1,0,2中,-2,-1,
%e 6|0,0,0,0,0,0,
%e 7|0,0,0,0,0,0,
%e 8|0,0,0,0,0,0,
%e 9 |0,0,0,0,0,0,
%e 10|0,0,0,0,0,0,
%e 11|0,0,0,0,0,0,
%e 12|0,0,0,0,0,0,
%e 13|0,0,0,0,0,0,
%e 14 |0,0,0,0,0,0,
%e 15 |0,0,0,0,0,0,
%e 16 |0,0,0,0,0,0,
%e 17 |0,0,0,0,0,0,
%e 18 |0,0,0,0,0,0,
%e 19 |0,0,0,0,0,0,
%e 20|0,0,0,0,0,0,
%e 21 |0,0,0,0,0,0,
%o(PARI)
%o up_to=105;
%o A000523(n)=登录(n,2);
%o A371094(n)={my(m=1+3*n,e=估价(m,2));(m*(2^e))+((4^e)-1)/3);};
%o A372282sq(n,k)=如果(1==n,2*k-1,A371094(A372282 sq(n-1,k));
%o A372356sq(n,k)={my(x=A372282sq(n,k));(A000523(A371094(x))-A00523(x));};
%o A372357sq(n,k)=(A372356sq(1+n,k;
%o A372357sq(n,k)={my(x=A372282sq(n,k),y=A371094(x),z=A3710.94(y),xl=A000523(x)、yl=A000533(y)、zl=A00523(z));(zl-yl)-2*(yl-xl));};
%o A372357sq(n,k)={my(x=A372282sq(n,k),y=A371094(x),z=A3710.94(y),xl=A000523(x)、yl=A000533(y)、zl=A00523(z));(zl-3*yl+2*xl);};
%o A372357列表(up_to)={my(v=向量(up_to),i=0);对于(a=1,oo,对于(col=1,a,i++;如果(i>up_to,返回(v));v[i]=A372357sq((a-(col-1),col)));(v);};
%o v372357=A372357列表(up_to);
%o A372357(n)=v372357【n】;
%Y参考A000523、A371094、A372282、A372354和A372356。
%K符号,tabl
%氧1,3
%2024年4月30日,安提·卡图宁
|