搜索: a326622-编号:a3266222
|
|
|
|
1, 2, 2, 4, 2, 8, 2, 11, 9, 14, 2, 46, 2, 24, 51, 66, 2, 126, 2, 202, 144, 69, 2, 632, 194, 116, 381, 756, 2, 1707, 2, 1417, 956, 316, 2043, 5295, 2, 511, 2293, 9151, 2, 10278, 2, 8409, 14671, 1280, 2, 36901, 8035, 21524, 11614, 25639, 2, 53138, 39810, 85004
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
p(n,d)除以n的除数d的和,其中p(n、m)是n在m个部分中的分区数-沃特·梅森,2009年6月7日
此外,n的最大部分除以n的整数分区数。这些分区的Heinz数由下式给出A326836型例如,a(1)=1到a(8)=11分区为:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (11111) (33) (1111111) (44)
(211) (222) (422)
(1111) (321) (431)
(2211) (2222)
(3111) (4211)
(21111) (22211)
(111111) (41111)
(221111)
(2111111)
(11111111)
(结束)
|
|
链接
|
|
|
公式
|
对于所有素数p,a(p)=2。
|
|
例子
|
a(3)=2,因为3是素数;a(4)=4,因为4的五个分区是{4}、{3、1}、}2、2}、[2]、1,1}和{1、1、1,1},除{2、1和1}外,每个分区中的部分数除以4。
a(1)=1到a(8)=11个分区,其长度除以其和,如下所示。这些分区的Heinz数由下式给出A316413年.
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (11111) (33) (1111111) (44)
(31) (42) (53)
(1111) (51) (62)
(222) (71)
(321) (2222)
(411) (3221)
(111111) (3311)
(4211)
(5111)
(11111111)
(结束)
|
|
数学
|
Do[p=整数分区[n];l=长度[p];c=0;k=1;当[k<l+1时,如果[IntegerQ[n/Length[p[k]]],c++];k++];打印[c],{n,1,57},全部]
p[n,k]:=p[n,k]=p[n-1,k-1]+p[n-k,k];p[n,k_]:=0/;k> n;p[n,n]:=1;p[n,0]:=0
表[Plus@@(p[n,#]&/@除数[n]),{n,36}](*沃特·梅森2009年6月7日*)
表[Count[Integer Partitions[n],q_/;整数q[Mean[q]]],{n,50}](*克拉克·金伯利2019年4月23日*)
|
|
黄体脂酮素
|
(PARI)a(n)={my(nb=0);对于part(p=n,if(vecsum(Vec(p))%#p)==0,nb++););nb;}\\米歇尔·马库斯2018年7月3日
(Python)
从sympy导入除数
|
|
交叉参考
|
|
|
关键字
|
容易的,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A102627号
|
| 将n划分为不同部分的数目,其中部分的数目将n划分。 |
|
+10 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
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
1958年
|
| n的整数分区数,其部分的平均值与中值不同。 |
|
+10 38
|
|
|
0, 0, 0, 0, 1, 3, 3, 10, 13, 20, 28, 49, 53, 93, 113, 145, 203, 287, 329, 479, 556, 724, 955, 1242, 1432, 1889, 2370, 2863, 3502, 4549, 5237, 6825, 8108, 9839, 12188, 14374, 16958, 21617, 25852, 30582, 36100, 44561, 51462, 63238, 73386, 85990, 105272, 124729
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,6
|
|
链接
|
|
|
例子
|
a(4)=1到a(8)=13分区:
(211) (221) (411) (322) (332)
(311) (3111) (331) (422)
(2111) (21111) (421) (431)
(511) (521)
(2221) (611)
(3211) (4211)
(4111) (5111)
(22111) (22211)
(31111) (32111)
(211111) (41111)
(221111)
(311111)
(2111111)
|
|
数学
|
表[Length[Select[Integer Partitions[n],Mean[#]=中位数[#]&]],{n,0,30}]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 0, 0, 1, 1, 5, 3, 13, 11, 21, 28, 54, 31, 99, 111, 125, 165, 295, 259, 488, 425, 648, 933, 1253, 943, 1764, 2320, 2629, 2962, 4563, 3897, 6840, 6932, 9187, 11994, 12840, 12682, 21635, 25504, 28892, 28187, 44581, 42896, 63259, 66766, 74463, 104278, 124752
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,6
|
|
评论
|
等价地,长度不除以和的分区。
通过共轭,也就是n的整数分区数,最大部分不除以n。
|
|
链接
|
|
|
公式
|
|
|
例子
|
a(3)=1到a(8)=11分区:
(21) (211) (32) (2211) (43) (332)
(41) (3111) (52) (422)
(221) (21111) (61) (431)
(311) (322) (521)
(2111) (331) (611)
(421) (22211)
(511) (32111)
(2221) (41111)
(3211) (221111)
(4111) (311111)
(22111) (2111111)
(31111)
(211111)
|
|
数学
|
表[Length[Select[IntegerPartitions[n]!整数Q[Mean[#]]&]],{n,0,30}]
|
|
交叉参考
|
下面的“!”表示枚举补码或集合理论补码。
参见。A001700号,A074761号,098743加元,A143773号,A175397号,A175761号,A298423型,A326027型,A326641飞机,A326842型,362849美元,A327778型.
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 2, 3, 6, 7, 8, 9, 12, 19, 20, 21, 28, 29, 30, 31, 40, 41, 70, 71, 74, 75, 76, 77, 108, 123, 124, 211, 214, 215, 216, 217, 332, 333, 334, 335, 592, 593, 594, 595, 612, 613, 614, 615, 618, 639, 640, 641, 1160, 1183, 1324, 1325, 1328, 1329, 2176, 2177, 2196
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
链接
|
|
|
例子
|
a(1)=1到a(9)=19个子集:
{1} {1} {1} {1} {1} {1} {1} {1} {1}
{2} {2} {2} {2} {2} {2} {2} {2}
{3} {3} {3} {3} {3} {3} {3}
{4} {4} {4} {4} {4} {4}
{1,4} {5} {5} {5} {5} {5}
{1,2,4} {1,4} {6} {6} {6} {6}
{1,2,4} {1,4} {7} {7} {7}
{1,2,4} {1,4} {8} {8}
{1,2,4} {1,4} {9}
{2,8}{1,4}
{1,2,4} {1,9}
{2,4,8} {2,8}
{4,9}
{1,2,4}
{1,3,9}
{2,4,8}
{3,8,9}
{4,6,9}
{3,6,8,9}
|
|
数学
|
表[Length[Select[Subsets[Range[n]],IntegerQ[Geometric Mean[#]]&]],{n,0,10}]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 6, 12, 14, 15, 18, 20, 24, 26, 33, 35, 36, 38, 40, 42, 44, 45, 48, 50, 51, 52, 54, 56, 58, 60, 63, 65, 66, 69, 70, 72, 74, 75, 76, 77, 80, 86, 92, 93, 95, 96, 102, 104, 106, 108, 112, 114, 117, 119, 120, 122, 123, 124, 126, 130, 132, 135, 136, 140, 141, 142
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
等价地,长度不除以和的分区。
分区的Heinz数(y_1,…,y_k)是质数(y_1)**质数(yk)。这给出了正整数和整数分区之间的双向对应。
|
|
链接
|
|
|
例子
|
术语及其基本指数开始于:
1: {}
6: {1,2}
12: {1,1,2}
14: {1,4}
15: {2,3}
18: {1,2,2}
20: {1,1,3}
24: {1,1,1,2}
26: {1,6}
33: {2,5}
35: {3,4}
36:{1,1,2,2}
38: {1,8}
40: {1,1,1,3}
42: {1,2,4}
44: {1,1,5}
45: {2,2,3}
48: {1,1,1,1,2}
|
|
MAPLE公司
|
q: =n->(l->nops(l)=0或irem(加(i,i=l),nops(1)>0)(映射
(i->numtheory[pi](i[1])$i[2],ifactors(n)[2])):
|
|
数学
|
素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
选择[范围[100]!整数Q[Mean[primeMS[#]]&]
|
|
交叉参考
|
参见。A067539号,A096199号,098743加元,A175397号,A175761号,A289508型,A289509型,A290103型,A326028,A326645型,A326837.
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A326028
|
| 将n分解为因子>1且具有整数几何平均值的因子的次数。 |
|
+10 25
|
|
|
0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
评论
|
|
|
链接
|
|
|
公式
|
|
|
例子
|
a(4)=2到a(36)=5的因式分解(仅显示n是完美幂的情况)。
(4) (8) (9) (16) (25) (27) (32) (36)
(2*2) (2*2*2) (3*3) (2*8) (5*5) (3*3*3) (2*2*2*2*2) (4*9)
(4*4) (6*6)
(2*2*2*2) (2*18)
(3*12)
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Length[Select[facs[n],IntegerQ[Geometric Mean[#]]&]],{n,2,100}]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A326621型
|
| 对n进行编号,使n的不同素数指数集的平均值为整数。 |
|
+10 25
|
|
|
2、3、4、5、7、8、9、10、11、13、16、17、19、20、21、22、23、25、27、29、30、31、32、34、37、39、40、41、43、44、46、47、49、50、53、55、57、59、60、61、62、63、64、67、68、71、73、78、79、80、81、82、83、85、87、88、89、90、91、92、94、97、100、101、103、105
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
n的素数指数是一个数m,使得素数(m)除以n。n的多素数指数集是A112798号.
整数分区的Heinz数(y_1,…,y_k)是素数(y_1)**素数(y_k),所以这些是整数分区的Heinz数,其不同部分具有整数平均值。
|
|
链接
|
|
|
例子
|
术语序列及其基本指数开始于:
2: {1}
3:{2}
4: {1,1}
5: {3}
7: {4}
8: {1,1,1}
9: {2,2}
10: {1,3}
11: {5}
13: {6}
16: {1,1,1,1}
17: {7}
19: {8}
20: {1,1,3}
21: {2,4}
22: {1,5}
23:{9}
25: {3,3}
27: {2,2,2}
29: {10}
|
|
数学
|
选择[Range[2,100],IntegerQ[Mean[PrimePi/@First/@FactorInteger[#]]&]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
2, 3, 4, 5, 7, 8, 9, 11, 13, 14, 16, 17, 19, 23, 25, 27, 29, 31, 32, 37, 41, 42, 43, 46, 47, 49, 53, 57, 59, 61, 64, 67, 71, 73, 76, 79, 81, 83, 89, 97, 101, 103, 106, 107, 109, 113, 121, 125, 126, 127, 128, 131, 137, 139, 149, 151, 157, 161, 163, 167, 169
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
整数分区的Heinz数(y_1,…,y_k)是素数(y_1)**质数(yk)。
|
|
链接
|
|
|
例子
|
术语序列及其基本指数开始于:
2: {1}
3:{2}
4: {1,1}
5: {3}
7: {4}
8: {1,1,1}
9: {2,2}
11: {5}
13: {6}
14: {1,4}
16: {1,1,1,1}
17: {7}
19: {8}
23:{9}
25: {3,3}
27: {2,2,2}
29: {10}
31: {11}
32: {1,1,1,1,1}
37: {12}
|
|
数学
|
素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
选择[Range[100],IntegerQ[Geometric Mean[primeMS[#]]&]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A326669型
|
| 对k进行编号,使k的二进制展开式中的平均位置为整数。 |
|
+10 25
|
|
|
1, 2, 4, 5, 7, 8, 10, 14, 16, 17, 20, 21, 27, 28, 31, 32, 34, 35, 39, 40, 42, 49, 54, 56, 57, 62, 64, 65, 68, 70, 73, 78, 80, 84, 85, 93, 98, 99, 107, 108, 112, 114, 119, 124, 127, 128, 130, 133, 136, 140, 141, 146, 147, 155, 156, 160, 161, 167, 168, 170, 175
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
这些数字的指数在表示为2的不同幂和时具有整数平均值。
|
|
链接
|
|
|
例子
|
42在序列中,因为42=2^1+2^3+2^5,{1,3,5}的平均值是3,一个整数。
|
|
数学
|
选择[Range[100],IntegerQ[Mean[Join@@Position[IntegerDigits[#,2],1]]&]
|
|
黄体脂酮素
|
(PARI)isok(m)=我的(b=二进制(m));分母(vecsum(Vec(选择(x->(x==1),b,1))/hammingweight(m))==1\\米歇尔·马库斯2021年7月2日
|
|
交叉参考
|
参见。A000120号,A051293号,A070939号,A102627号,A291165型,A291166型,A316413型,A326622型,A326668型,A326672型,362673英镑.
|
|
关键字
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.020秒内完成
|