|
|
A072575号 |
| 将n的组成数(有序分区)的三角形T(n,k)分成不同的部分,其中最大部分正好是k,1<=k<=n。 |
|
8
|
|
|
1, 0, 1, 0, 2, 1, 0, 0, 2, 1, 0, 0, 2, 2, 1, 0, 0, 6, 2, 2, 1, 0, 0, 0, 8, 2, 2, 1, 0, 0, 0, 6, 8, 2, 2, 1, 0, 0, 0, 6, 8, 8, 2, 2, 1, 0, 0, 0, 24, 12, 8, 8, 2, 2, 1, 0, 0, 0, 0, 30, 14, 8, 8, 2, 2, 1, 0, 0, 0, 0, 30, 36, 14, 8, 8, 2, 2, 1, 0, 0, 0, 0, 24, 36, 38, 14, 8, 8, 2, 2, 1, 0, 0, 0, 0, 24, 54, 42, 38, 14, 8, 8, 2, 2, 1
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,5
|
|
链接
|
|
|
例子
|
行开始:
1;
0, 1;
0, 2, 1;
0, 0, 2, 1;
0, 0, 2, 2, 1;
0, 0, 6, 2, 2, 1;
0, 0, 0, 8, 2, 2, 1;
0、0、0、6、8、2、2、1;
...
T(7,4)=8,因为7可以写成4+3=4+2+1=4+1+2=3+4=2+4+1=2+1+4=1+4+2=1+2+4。
|
|
MAPLE公司
|
b: =proc(n,i)选项记忆`如果`(n=0,1,
`如果`(i<1,[][],zip((x,y)->x+y,[b(n,i-1)],
`如果`(i>n,[],[0,b(n-i,i-1)]),0)[])
结束时间:
T: =proc(n,k)局部l;l: =[b(n-k,k-1)];
添加(l[i]*(i)!,i=1…无(l))
结束时间:
seq(seq(T(n,k),k=1..n),n=1..20)#阿洛伊斯·海因茨2012年11月20日
|
|
数学
|
b[n_,i_]:=b[n,i]=如果[n==0,{1},如果[i<1,{},Plus@@PadRight[{b[n、i-1],如果[i>n,{},连接[{0},b[n-i,i-1]]}]];T[n_,k_]:=模[{l},l=b[n-k,k-1];总和[l[i]]*i!,{i,1,长度[l]}]];表[表[T[n,k],{k,1,n}],{n,1,20}]//扁平(*Jean-François Alcover公司2014年1月31日之后阿洛伊斯·海因茨*)
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|