|
| |
|
| A133121号 |
| 行读取的三角形T（n，k）=n的分区数，使得部分数减去不同部分数等于k，k=0..n-1。 |
|
6
|
|
|
|
1, 1, 1, 2, 0, 1, 2, 2, 0, 1, 3, 2, 1, 0, 1, 4, 2, 3, 1, 0, 1, 5, 4, 2, 2, 1, 0, 1, 6, 6, 3, 3, 2, 1, 0, 1, 8, 7, 5, 4, 2, 2, 1, 0, 1, 10, 8, 10, 3, 5, 2, 2, 1, 0, 1, 12, 13, 8, 9, 4, 4, 2, 2, 1, 0, 1, 15, 15, 14, 10, 8, 5, 4, 2, 2, 1, 0, 1, 18, 21, 15, 16, 8, 9, 4, 4, 2, 2, 1, 0, 1, 22, 25, 23, 17, 17, 7, 10, 4, 4, 2, 2, 1, 0, 1
(列表;桌子;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,4
|
|
|
链接
|
|
|
|
配方奶粉
|
G.f.：产品{n>=1}1+x^n/（1-y*x^n）。
|
|
|
例子
|
1
1,1
2,0,1
2,2,0,1
3,2,1,0,1
4,2,3,1,0,1
5,4,2,2,1,0,1
6,6,3,3,2,1,0,1
8,7,5,4,2,2,1,0,1
10,8,10,3,5,2,2,1,0,1
12,13,8,9,4,4,2,2,1,0,1
15,15,14,10,8,5,4,2,2,1,0,1
18,21,15,16,8,9,4,4,2,2,1,0,1
可以增加三角形以覆盖n=0和k=n情况，给出：
1
1 0
1 1 0
2 0 1 0
2 2 0 1 0
3 2 1 0 1 0
4 2 3 1 0 1 0
5 4 2 2 1 0 1 0
6 6 3 3 2 1 0 1 0
8 7 5 4 2 2 1 0 1 0
10 8 10 3 5 2 2 1 0 1 0
12 13 8 9 4 4 2 2 1 0 1 0
15 15 14 10 8 5 4 2 2 1 0 1 0
18 21 15 16 8 9 4 4 2 2 1 0 1 0
22 25 23 17 17 7 10 4 4 2 2 1 0 1 0
27 30 32 21 19 16 8 9 4 2 2 1 0 1 0
第七行{5，4，2，2，1，0，1，0}统计以下整数分区（未显示空列）。
(7) (322) (2221) (22111) (211111) (1111111)
(43) (331) (4111) (31111)
(52) (511)
(61) (3211)
(421)
（结束）
|
|
|
MAPLE公司
|
b： =proc（n，i）选项记忆；展开（`if`（n=0，1，`if`）（i<1，0，
加（x^`如果`（j=0，0，j-1）*b（n-i*j，i-1），j=0..n/i）））
结束时间：
T： =n->（p->seq（系数（p，x，i），i=0..n-1））（b（n$2））：
|
|
|
数学
|
b[n_，i_]：=b[n，i]=展开[If[n==0，1，If[i<1，0，Sum[x^If[j==0、0、j-1]*b[n-i*j，i-1]，{j，0，n/i}]]]；T[n_]：=函数[p，表[系数[p，x，i]，{i，0，n-1}][b[n，n]]；表[T[n]，{n，1，16}]//扁平(*Jean-François Alcover公司，2016年1月23日，之后阿洛伊斯·海因茨*)
表[Length[Select[Integer Partitions[n]，Length[%]-Length[Union[#]]==k&]]，{n，0，15}，{k，0，n}]（*扩充版本，古斯·怀斯曼2019年1月23日*）
|
|
|
黄体脂酮素
|
（PARI）partitm（n，m，nmin）={local（resul，partj）；如果（n<0||m<0，return（[；]）；）（m==1&&n>=nmin，结果=concat（结果，[[n]]）；）；返回（结果）；}
partt（n）={local（resul，partm，filr）；如果（n<0，return（[；]）；）；resul=矩阵（0，n）；对于（m=1，n，partm=partitm（n，m，1）；filr=向量（n-m）；对于
A133121行（n）={local（p=partt（n），resul=vector（n）、nprt、ndprts）；对于（r=1，matsize（p）[1]，nprts=0；对于（c=1，n，if（p[r，c]==0，break，nprts++；如果（c==1，ndprts++，if）（p[r，c]！=p[r、c-1]，ndprts++）；）；）+；）；返回（结果）；}
A133121号（）={对于（n=1,20，arow=A133121行（n））；对于（k=1，n，print1（arow[k]，“，”）；）；}
（PARI）表（nn）=my（pl=prod（n=1，nn，1+x^n/（1-y*x^n））+O（x^nn））；对于（k=1，nn-1，打印（Vecrev（polceoff（pl，k，x）））\\米歇尔·马库斯2015年8月23日
|
|
|
交叉参考
|
|
|
|
关键字
|
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
