搜索: 编号:a328297
|
|
A328297型
|
| 从(0,0,0)开始,以(x,y,z)结束,x=k,保持在第一个(非负)八分位,并使用步长(0,0-1)、(0,1,0)、(1,0,0;三角形T(n,k),n>=0,0<=k<=n,按行读取。 |
|
+0 6
|
|
|
1, 2, 1, 5, 6, 1, 16, 26, 14, 1, 58, 112, 93, 30, 1, 228, 489, 522, 288, 62, 1, 945, 2182, 2737, 2040, 825, 126, 1, 4072, 9934, 13934, 12642, 7210, 2254, 254, 1, 18078, 46016, 70058, 72994, 52086, 23878, 5969, 510, 1, 82172, 216322, 350648, 404788, 338520, 198795, 75570, 15468, 1022, 1
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
0,2
|
|
链接
|
|
|
例子
|
三角形T(n,k)开始于:
1;
2, 1;
5、6、1;
16, 26, 14, 1;
58, 112, 93, 30, 1;
228, 489, 522, 288, 62, 1;
945, 2182, 2737, 2040, 825, 126, 1;
4072, 9934, 13934, 12642, 7210, 2254, 254, 1;
...
|
|
MAPLE公司
|
b: =proc(l)选项记住`如果`(l[-1]=0,1,(r->add(
加法(add(`if`(i+j+k=1,(h->`if`)(h[1]<0,0,b(h)))(
排序(1-[i,j,k]),0),k=r),j=r)(i=r))([$-1..1])
结束时间:
T: =(n,k)->加(b(排序([k,j,n-k-j])),j=0..n-k):
seq(seq(T(n,k),k=0..n),n=0..12);
|
|
数学
|
b[l_]:=b[l]=If[Last[l]==0,1,Sum[If[i+j+k==1,Function[h,If[h[[1]]<0,0,b[h]][Sort[l-{i,j,k}]],0],{i,{-1,0,1}},{j,{-1,0,1}},{k,{-1,0,1}}]];
T[n_,k_]:=和[b[排序[{k,j,n-k-j}]],{j,0,n-k}];
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.004秒内完成
|