|
| |
|
| A317449型 |
| 正则三角形，其中T（n，k）是将大小为n的强正规多集划分为k个块的多集数，其中一个多集如果跨越具有弱递减重数的正整数的初始区间，则是强正规的。 |
|
6
|
|
|
|
1, 2, 2, 3, 6, 3, 5, 21, 16, 5, 7, 52, 72, 32, 7, 11, 141, 306, 216, 65, 11, 15, 327, 1113, 1160, 512, 113, 15, 22, 791, 4033, 6052, 3737, 1154, 199, 22, 30, 1780, 13586, 28749, 24325, 10059, 2317, 323, 30, 42, 4058, 45514, 133642, 151994, 82994, 24854, 4493, 523, 42
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
例子
|
T（3,2）=6个多集分区是{{1}，{1,1}}，}，1,2}，2,2}。
三角形开始：
1
2 2
3 6 3
5 21 16 5
7 52 72 32 7
11 141 306 216 65 11
15 327 1113 1160 512 113 15
...
|
|
|
数学
|
sps[｛｝]：=｛｛｝｝；sps[set:｛i_，___｝]：=Join@@Function[s，Prepend[#，s]和/@sps[Complement[set，s]]/@Cases[Subset[set]，｛i，___｝]；
mps[set_]：=联合[Sort[Sort/@（#/.x_Integer:>set[[x]]）]&/@sps[Range[Length[set]]]；
strnorm[n_]：=扁平[MapIndexed[表[#2，{#1}]&，#]]&/@IntegerPartitions[n]；
表[Length[Select[Join@@mps/@strnormal[n]，Length[#]==k&]]，{n，6}，{k，n}]
|
|
|
黄体脂酮素
|
（PARI）
EulerT（v）={Vec（exp（x*Ser（dirmul（v，vector（#v，n，1/n）））-1，-#v）}
D（p，n）={my（v=向量（n））；对于（i=1，#p，v[p[i]]++）；my（u=EulerT（v））；Vec（1/prod（k=1，n，1-u[k]*x^k+O（x*x^n））-1，-n）/prod（i=1，#v，i^v[i]*v[i]！）}
U（m，n）={my（s=0）；对于部分（p=m，s+=D（p，n））；s}
M（n）={Mat（向量（n，k，（U（k，n）-U（k-1，n））~））}
{my（A=M（8））；对于（n=1，#A~，打印（A[n，1..n]））}\\安德鲁·霍罗伊德2020年12月30日
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
