%I#10 2023年8月1日06:55:14
%S 0,0,1,1,0,1,1,1,2,1,2,0,1,2,0,1,2,0,1,2,0,1,2,2,0,1,2,1,2,2,0,1,2,1,2,0,1,2,1,2,0,1,2,1,2,1,2,2,2,2,2,
%温度2,3,1,1,2,1,2,2,3,0,1,2,2,2,3,1,2,3,1,1,1,2,2,2,2,1,1,1,2,
%U 2,3,0,1,2,1,2,2,3,2,2,3,1,2,1
%N行读取的三角形:T(0,0)=0;T(n+1,k)=T(n,k+1),0<=k<n;T(n+1,n)=T(n,0);T(n+1,n+1)=T(n,0)+1。
%C设h为第n行的初始项,为了得到第n+1行,去掉h,然后加上h和h+1;
%C对于n>0:T(n,A035327(n))=0。
%H Reinhard Zumkeller,<a href=“/A240857/b240857.txt”>三角形的n=0..125行,展平</a>
%F T(n,k)=A048881(n+k),0<=k<=n。
%e、。0: 0
%e、。1: 0 1
%e、。2: 1 0 1
%e、。3: 0 1 1 2
%e、。4: 1 1 2 0 1
%e、。5: 1 2 0 1 1 2
%e、。6: 2 0 1 1 2 1 2
%e。7: 0 1 1 2 1 2 2 3
%e、。8: 1 1 2 1 2 2 3 0 1
%e、。9: 1 2 1 2 2 3 0 1 1 2
%e、。10: 2 1 2 2 3 0 1 1 2 1 2
%e、。11: 1 2 2 3 0 1 1 2 1 2 2 3
%e、。12: 2 2 3 0 1 1 2 1 2 2 3 1 2
%e。13: 2 3 0 1 1 2 1 2 2 3 1 2 2 3
%e、。14: 3 0 1 1 2 1 2 2 3 1 2 2 3 2 3
%e、。15: 0 1 1 2 1 2 2 3 1 2 2 3 2 3 3 4 .
%t t[n_,k_]:=数字计数[n+k+1,2,1]-1;表[T[n,k],{n,0,12},{k,0,n}]//扁平(*_Amiram Eldar_,2023年8月1日*)
%o(哈斯克尔)
%o a240857 n k=a240857_tabl!!不!!k个
%o a240857_row n=a240857-tabl!!n个
%o a240857_tabl=迭代(\(x:xs)->xs++[x,x+1])[0]
%Y参见A048881(左边缘)、A000120(右边缘)、P000788(行总和)、A000523(行最大值)、A240883(中心项)。
%K nonn,表格
%0、10
%A _Reinhard Zumkeller,2014年4月14日
|