%I#29 2022年2月16日23:21:56
%S 1,3,3,5,7,6,7,11,12,10,9,15,18,15,11,19,24,26,25,21,13,23,30,34,
%电话:35,33,28,15,27,36,42,45,42,36,17,31,42,50,55,57,56,52,45,19,35,48,
%U 58,65,69,70,68,63,55,21,39,54,66,75,81,84,84,81,75,66,23,43,60,74,85,93
%N行读取的三角形阵列:T(N,k)=Spin(2n+1,C)的k维各向同性子空间数,N>=1,1<=k<=N。
%H G.C.Greubel,<a href=“/A0705543/b070543.txt”>行n=1..100的三角形,扁平</a>
%H John Baez,<a href=“http://math.ucr.edu/home/baez/week181.html“>第181周</a>
%如果0<k<=n,则F T(n,k)=k*(k+1)/2+2*k*(n-k)。
%F G.F.:(1+x-2*x^2*y)/((1-x)^2*(1-x*y)^3)_Vladeta Jovovic_,2004年3月5日
%F T(n,k)=A141419(2*n-k,k)_Peter Munn,2019年8月21日
%e行:
%e 1;
%e 3,3;
%e五、七、六;
%e第7、11、12、10条;
%e第9、15、18、18、15条;
%e 11、19、24、26、25、21;
%e。。。
%p T:=(n,k)->k*(k+1)/2+2*k*(n-k);r: =n->[序列(T(n,k),k=1..n)];对于从1到12的r,进行lprint(r(n));日期:#_N.J.A.Sloane_,2019年8月21日
%t nmax=12;t[n_,k_]:=如果[k<1||k>n,0,k*(k+1)/2+2*k*(n-k)];扁平[表[t[n,k],{n,1,nmax},{k,1,n}]](*Jean-François Alcover_,2011年10月19日,PARI*之后)
%o(PARI){T(n,k)=如果(k<1|k>n,0,k*(k+1)/2+2*k*(n-k))}
%o(岩浆)[k*(k+1+4*(n-k))/2:k in[1..n],n in[1..12]];//_G.C.Greubel,2019年9月5日
%o(鼠尾草)[[k*(k+1+4*(n-k))/2代表k in(1..n)]代表n in(1..12)]#_G.C.格鲁贝尔,2019年9月5日
%o(GAP)平面(列表([1.12],n->列表([1..n],k->k*(k+1+4*(n-k))/2));#_G.C.Greubel,2019年9月5日
%Y参考A141419。
%K nonn,tabl,轻松,好
%O 1,2号机组
%A _迈克尔·索莫斯,2002年4月28日
%2019年8月21日,N.J.A.Sloane将E偏移更改为1
|