|
| |
|
| A330463型 |
| 行读取的三角形，其中T（n，k）是具有总和n的非空正整数多集的k元集的数目。 |
|
8
|
|
|
|
1, 0, 1, 0, 2, 0, 0, 3, 2, 0, 0, 5, 4, 0, 0, 0, 7, 11, 1, 0, 0, 0, 11, 20, 6, 0, 0, 0, 0, 15, 40, 16, 0, 0, 0, 0, 0, 22, 68, 40, 3, 0, 0, 0, 0, 0, 30, 120, 91, 11, 0, 0, 0, 0, 0, 0, 42, 195, 186, 41, 0, 0, 0, 0, 0, 0, 0, 56, 320, 367, 105, 3, 0, 0, 0, 0, 0, 0
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,5
|
|
|
链接
|
|
|
|
公式
|
|
|
|
例子
|
三角形开始：
1
0 1
0 2 0
0 3 2 0
0 5 4 0 0
0 7 11 1 0 0
0 11 20 6 0 0 0
0 15 40 16 0 0 0 0
0 22 68 40 3 0 0 0 0
...
行n=5统计以下多集集：
{{5}} {{1},{4}} {{1},{2},{1,1}}
{{1,4}} {{2},{3}}
{{2,3}} {{1},{1,3}}
{{1,1,3}} {{1},{2,2}}
{{1,2,2}} {{2},{1,2}}
{{1,1,1,2}} {{3},{1,1}}
{{1,1,1,1,1}} {{1},{1,1,2}}
{{1,1},{1,2}}
{{2},{1,1,1}}
{{1},{1,1,1,1}}
{{1,1},{1,1,1}}
|
|
|
MAPLE公司
|
b： =proc（n，i）选项记忆`如果`（n＝0，1，`如果`（i＜1，0，加（二项式(
组合[数字部分]（i），j）*展开（b（n-i*j，i-1）*x^j），j=0..n/i））
结束：
T： =n->（p->seq（系数（p，x，i），i=0..n））（b（n$2））：
|
|
|
数学
|
ppl[n_，k_]：=开关[k，0，｛n｝，1，整数分区[n]，_，联接@@Table[Union[Sort/@Tuples[pppl[#，k-1]和/@ptn]]，｛ptn，整数分区[n]｝]]；
表[Length[Select[ppl[n，2]，And[UnsameQ@@#，Length[#]==k]&]]，{n，0，10}，{k，0，n}]
（*第二个节目：*）
b[n_，i_]：=b[n，i]=如果[n==0，1，如果[i<1，0，总和[二项式[
分区P[i]，j]*展开[b[n-i*j，i-1]*x^j]，{j，0，n/i}]]；
T[n_]：=函数[p，表[系数[p，x，i]，{i，0，n}][b[n，n]]；
|
|
|
黄体脂酮素
|
（PARI）
A（n）={my（v=Vec（prod（k=1，n，（1+x^k*y+O（x*x^n））^numbart（k）））；向量（#v，n，Vecrev（v[n]，n））}
{my（T=A（12））；对于（n=1，#T，打印（T[n]））}\\安德鲁·霍罗伊德2019年12月29日
|
|
|
交叉参考
|
|
|
|
关键字
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
