搜索: 编号:a102627
|
|
A102627号
|
| 将n划分为不同部分的分区数,其中部分数将n划分成不同部分。 |
|
+0个 82
|
|
|
1, 1, 1, 2, 1, 4, 1, 4, 4, 5, 1, 15, 1, 7, 14, 17, 1, 28, 1, 40, 28, 11, 1, 99, 31, 13, 49, 99, 1, 186, 1, 152, 76, 17, 208, 425, 1, 19, 109, 699, 1, 584, 1, 433, 823, 23, 1, 1625, 437, 1140, 193, 746, 1, 2003, 1748, 2749, 244, 29, 1, 7404, 1, 31, 4158, 3258, 3766, 6307, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
链接
|
|
|
例子
|
a(1)=1到a(12)=15个严格整数分区,其平均值为整数(a=10,B=11,C=12):
(1) (2)(3)(4)(5)(6)(7)(8)(9)(A)(B)(C)
(31)(42)(53)(432)(64)(75)
(51) (62) (531) (73) (84)
(321) (71) (621) (82) (93)
(91)(A2)
(B1)
(543)
(642)
(651)
(732)
(741)
(831)
(921)
(5421)
(6321)
(结束)
|
|
MAPLE公司
|
a: =proc(m)选项记忆;局部b;b:=
proc(n,i,t)选项记忆`如果`(i*(i+1)/2<n,
0,`if`(n=0,`if`(irem(m,t)=0,1,0),
b(n,i-1,t)+b(n-i,min(n-i、i-1),t+1))
结束:`if`(i素数(m),1,b(m$2,0))
结束时间:
|
|
数学
|
npdp[n_]:=计数[Select[Integer Partitions[n],Length[#]=长度[Union[#]]&],_?(可分割[n,长度[#]]&)];数组[npdp,70](*哈维·P·戴尔2016年2月12日*)
a[m_]:=a[m]=模[{b},b[n_,i_,t_]:=b[n,i,t]=如果[i(i+1)/2<n,0,如果[n==0,如果[模[m,t]==0、1、0],b[n、i-1,t]+b[n-i,最小值[n-i、i-1],t+1]];如果[PrimeQ[m],1,b[m,m,0]];
|
|
交叉参考
|
这些分区的BI-编号由下式给出A326669型(二进制索引具有整数平均值的数字)。
|
|
关键词
|
容易的,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.003秒内完成
|