|
| |
|
| A325831型 |
| 子多重集数大于n的n的整数分区数。 |
|
10
|
|
|
|
1, 1, 1, 2, 2, 4, 5, 8, 10, 16, 21, 35, 40, 58, 84, 120, 141, 199, 255, 347, 447, 592, 772, 1006, 1172, 1504, 1928, 2455, 3061, 3859, 4778, 5953, 7054, 8737, 10742, 13193, 15783, 19241, 23412, 28344, 33951, 40911, 49150, 58917, 70482, 84055, 100069, 118914
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,4
|
|
|
评论
|
分区的子多重集的数量是其多重性的乘积，每个多重集加一。
|
|
|
链接
|
|
|
|
公式
|
|
|
|
例子
|
a（1）=1到a（8）=10分区：
(1) (11) (21) (211) (221) (321) (421) (3221)
(111) (1111) (311) (2211) (2221) (3311)
(2111) (3111) (3211) (4211)
(11111) (21111) (4111) (22211)
(111111) (22111) (32111)
(31111) (41111)
(211111) (221111)
(1111111) (311111)
(2111111)
(11111111)
|
|
|
MAPLE公司
|
b： =proc（n，i，p）选项记忆`如果`（n＝0或i＝1，
`如果`（n=p-1，1，0），加上（`如果`（irem（p，j+1，'r'）=0，
（w->b（w，min（w，i-1），r）（n-i*j），0），j=0..n/i））
结束：
a： =n->组合[numbpart]（n）-加（b（n$2，k），k=0..n）：
|
|
|
数学
|
表[Length[Select[Integer Partitions[n]，Times@@（1+Length/@Split[#]）>n&]]，{n，0，30}]
（*第二个节目：*）
b[n_，i_，p_]：=b[n，i，p]=如果[n==0||i==1，
如果[n==p-1，1，0]，Sum[If[Mod[p，j+1]==0，
函数[w，b[w，Min[w，i-1]，p/（j+1）]][n-i*j]，0]，{j，0，n/i}]]；
a[n_]：=分区P[n]-和[b[n，n，k]，{k，0，n}]；
|
|
|
交叉参考
|
参见。A002033号,1988年8月59日,A126796号,A325694型,A325792型,A325795型,325828英镑,A325830型,A325832型,A325833型,325834英镑,A325836型.
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
