|
| |
|
| A092321号 |
| n的所有分区的最大部分之和（以复数计数）。 |
|
12
|
|
|
|
0, 1, 4, 8, 17, 26, 49, 69, 115, 164, 249, 343, 513, 686, 974, 1314, 1806, 2382, 3232, 4208, 5597, 7244, 9456, 12118, 15687, 19899, 25422, 32079, 40589, 50796, 63805, 79303, 98817, 122179, 151145, 185820, 228598, 279476, 341807, 416051, 506205, 613244, 742720
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
链接
|
Margaret Archibald、A.Blecher、C.Brennan、A.Knopfmacher和T.Mansour，根据多样性和零件尺寸划分的分区《澳大利亚组合数学杂志》，第66卷（1）（2016），第104-119页。
|
|
|
公式
|
通用公式：和{n>=1}（n*x^n/（1-x^n））*积{k=1..n}1/（1-x*k）。
|
|
|
例子
|
4的分区是[1,1,1,1]、[1,1,2]、[2,2]，[1,3]、[4]；因此a（4）=4×1+1×2+2×2+1×3+1×4=17。
|
|
|
MAPLE公司
|
b： =proc（n，i，t）选项记忆`如果`（n=0，[1,0]，
`如果`（i<1，[0$2]，b（n，i-1，t）+加（（l->`如果`（t，l，
l+[0，l[1]*i*j]））（b（n-i*j，i-1，真），j=1..n/i））
结束：
a： =n->b（n$2，错误）[2]：
|
|
|
数学
|
f[n_]：=块[{c=2n，k=2，p=整数分区[n]}，m=最大@@@p；l=长度[p]；而[k<l，c=c+m[[k]]*计数[p[[k]，m[[k]]]；k++]；如果[n==1，1，c]]；表[f[n]，{n，41}](*罗伯特·威尔逊v，2004年2月18日，更新人Jean-François Alcover公司2014年1月29日*）
nmax=50；系数列表[级数[和[n*x^n/（1-x^n）*积[1/（1-x ^k），{k，1，n}]，{n，1，nmax}]，}x，0，nmax{]，x](*瓦茨拉夫·科特索维奇2019年7月6日*）
连接[{0}，表[Total[Flatten[First[Split[#]]&/@Integer Partitions[n]]]，{n，50}]](*哈维·P·戴尔2019年10月29日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
容易的,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
