|
| |
|
| A266499型 |
| 部件多重性乘积等于n的n的分区数。 |
|
5
|
|
|
|
0, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 8, 1, 5, 1, 11, 6, 5, 1, 48, 7, 9, 21, 39, 1, 104, 1, 143, 27, 20, 45, 457, 1, 32, 58, 620, 1, 549, 1, 363, 514, 65, 1, 4302, 118, 858, 207, 926, 1, 4080, 437, 5171, 382, 181, 1, 20398, 1, 251, 4287, 20582, 1212
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,9
|
|
|
链接
|
|
|
|
公式
|
素数中的p=>a（p）=1。
|
|
|
例子
|
a（8）=2，因为在22个(=A000041号（8） ）只有[1,1,1,1,1,1,1,1,1,1,1]和[1,1,1,1,2]的8的分区具有等于8的部分重数乘积。
|
|
|
MAPLE公司
|
b： =proc（n，i，p）选项记忆`如果`（p=1和i*（i+1）/2<n，0，
`如果`（n=0，`如果`（p=1，1，0），`如果'（i<1，0，b（n，i-1，p）+加(
`如果`（irem（p，j）=0，b（n-i*j，i-1，p/j），0），j=1..分钟（p，n/i）））
结束：
a： =n->`if`（i素数（n），1，b（n$3））：
seq（a（n），n=0..70）；
|
|
|
数学
|
b[n_，i_，p]：=b[n，i，p]=如果[p==1&i*（i+1）/2<n，0，如果[n==0，如果[p==1，1，0]，如果[i<1，0，b[n、i-1，p]+和[If[Mod[p，j]==0、b[n-i*j，i-1，p/j]，0]、{j，1，Min[p，n/i]}]]]；a[n_]：=如果[PrimeQ[n]，1，b[n，n，n]]；表[a[n]，{n，0，70}](*Jean-François Alcover公司2016年12月22日，之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
