登录
按行读取三角形T:点积<r,r-1,。。。,1> *<s+1,s+2,。。。,r、 1、2、…、,。。。,s> 。
10

%I#10 2022年9月8日08:45:13

%S 1,4,5,10,13,13,20,26,28,26,35,45,50,45,56,71,80,83,80,71,84105,

%电话119126126119105120148168180180168148165201228246,

%电话:255255246228201220265300325340345340325300265286341

%N三角形T按行读取:点积<r,r-1,。。。,1> *<s+1,s+2,。。。,r、 1、2、…、,。。。,s> ●●●●。

%H G.C.Greubel,<a href=“/A094415/b094415.txt”>三角形的行数n=0..100,扁平</a>

%F T(n,k)=n*(n^2+3*n*(1+k)+2-3*k^2)/6对于n>=0,0<=k<=n。

%e三角形开头为:

%e 1;

%e 4、5;

%e 10、13、13;

%e第20、26、28、26页;

%e第35、45、50、50、45页;

%e 56、71、80、83、80、71;

%p序列(序列((n+1)*((n+2)*(n+3)+3*k*(n-k+1))/6,k=0..n),n=0..12);#_G.C.Greubel,2019年10月30日

%t表[(n+1)*((n+2)*(n+3)+3*k*(n-k+1))/6,{n,0,12},{k,0,n}]//扁平(*_G.C.格鲁贝尔,2019年10月30日*)

%o(PARI)T(n,k)=(n+1)*((n+2)*(n+3)+3*k*(n-k+1))/6;

%o表示(n=0,12,表示(k=0,n,print1(T(n,k),“,”))\\_G.C.格鲁贝尔,2019年10月30日

%o(岩浆)[(n+1)*((n+2)*(n+3)+3*k*(n-k+1))/6:k in[0..n],n in[0..12]];//_G.C.Greubel,2019年10月30日

%o(Sage)[[(n+1)*((n+2)*(n+3)+3*k*(n-k+1))/6 for k in(0..n)]for n in(0..12)]#_G.C.Greubel_,2019年10月30日

%o(GAP)平面(列表([0..12],n->列表([0..n],k->(n+1)*((n+2)*(n+3)+3*k*(n-k+1))/6));#_G.C.Greubel,2019年10月30日

%Y列0-6为A000292、A008778、A026054、A026057、A026060、A026063、A026066。

%Y半对角线为A050410。

%Y行总和为A000537。

%Y另见A094414、A088003。

%K nonn,表

%0、2

%A _Ralf Stephan,2004年5月2日