搜索: a326028-编号:a326029
|
|
|
|
1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 2, 4, 1, 1, 1, 3, 2, 1, 1, 4, 2, 1, 3, 2, 1, 1, 1, 5, 2, 1, 2, 3, 1, 1, 2, 3, 1, 2, 1, 3, 3, 1, 1, 6, 2, 2, 2, 2, 1, 2, 2, 4, 2, 1, 1, 6, 1, 1, 3, 7, 2, 1, 1, 3, 2, 1, 1, 6, 1, 1, 3, 2, 2, 2, 1, 7, 5, 1, 1, 4, 2, 1, 2, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
链接
|
|
|
例子
|
a(80)=7因子分解:
(2*2*2*10)
(2*2*20)
(2*5*8)
(2*40)
(4*20)
(8*10)
(80)
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Length[Select[facs[n],IntegerQ[Mean[#]]&]],{n,2,100}]
|
|
交叉参考
|
|
|
关键词
|
非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[Integer Partitions[n]!整数Q[Mean[#]]&]],{n,0,30}]
|
|
交叉参考
|
下面的“!”表示枚举补码或集合理论补码。
囊性纤维变性。A001700号,A074761号,A098743号,A143773号,A175397号,A175761号,1984年2月23日,326027美元,362641美元,A326842型,A326849型,A327778型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A067539号
|
| n的分区数,其中,如果部分数为k,则部分的乘积是某个正整数的k次幂。 |
|
+10 32
|
|
|
1, 2, 2, 3, 3, 4, 3, 4, 4, 8, 3, 8, 5, 7, 8, 8, 7, 9, 8, 17, 11, 11, 8, 16, 17, 17, 14, 18, 17, 26, 19, 24, 20, 30, 28, 32, 27, 37, 35, 48, 37, 45, 37, 51, 51, 58, 50, 64, 62, 83, 73, 84, 69, 91, 89, 101, 97, 116, 111, 136, 123, 142, 138, 160, 161, 181, 171, 205, 199, 231, 221
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
a(n)是几何平均数为整数的n的整数分区的数目-古斯·怀斯曼2019年7月19日
|
|
链接
|
|
|
例子
|
a(1)=1到a(8)=4分区:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (41) (33) (421) (44)
(1111) (11111) (222) (1111111) (2222)
(111111) (11111111)
(结束)
|
|
数学
|
表[Length[Select[Integer Partitions[n],IntegerQ[Geometric Mean[#]]&]],{n,30}](*古斯·怀斯曼2019年7月19日*)
|
|
黄体脂酮素
|
(Python)
从数学导入prod
从sympy导入integer_ntroot
从sympy.utilities.iterables导入分区
定义A067539号(n) :如果integer_ntroot(prod(a**b代表a,b代表p.items()),s)[1]),则返回sum(1代表分区(n,大小=True)中的s,p#柴华武2023年9月24日
|
|
交叉参考
|
|
|
关键词
|
容易的,非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(add(i,i=l),nops(l))>0)(映射
(i->数论[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号,A098743号,A175397号,175761英镑,A289508型,A289509型,2003年2月,A326028型,A326645型,A326837型.
|
|
关键词
|
非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
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 4, 1, 1, 2, 2, 1, 1, 1, 3, 2, 1, 2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 3, 1, 1, 5, 1, 1, 2, 2, 1, 1, 2, 3, 2, 1, 1, 5, 1, 1, 3, 3, 2, 1, 1, 2, 2, 1, 1, 5, 1, 1, 3, 2, 2, 2, 1, 5, 2, 1, 1, 4, 2, 1, 2, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
2,7
|
|
链接
|
|
|
例子
|
n=2,8,24,48,96的a(n)因子分解:
(2) (8) (24) (32) (48) (96)
(2*4) (4*6) (4*8) (6*8) (2*48)
(2*12) (2*16) (2*24) (4*24)
(2*3*4) (4*12) (6*16)
(2*4*6) (8*12)
(3*4*8)
(2*3*16)
(2*4*12)
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Length[Select[facs[n],UnsameQ@@#&IntegerQ[Mean[#]]&]],{n,2,100}]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
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, 3, 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, 6, 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(216)=5因子分解:
(2*4*27)
(3*3*24)
(3*6*12)
(6*6*6)
(216)
a(729)=8分解:
(3*3*3*3*3*3)
(3*3*81)
(3*9*27)
(3*243)
(9*9*9)
(9*81)
(27*27)
(729)
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Length[Select[facs[n],IntegerQ[Mean[#]]&&IntegerQ[Geometric Mean[#]]&]],{n,2,100}]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 4, 8, 9, 11, 16, 32, 64, 128, 130, 138, 256, 257, 261, 264, 296, 388, 420, 512, 1024, 2048, 2052, 2084, 2306, 2316, 2338, 2348, 4096, 8192, 16384, 32768, 32769, 32776, 32777, 32899, 32904, 32907, 33024, 35072, 65536, 131072, 131074, 131084, 131106
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
11的反向二进制展开式是(1,1,0,1),而{1,2,4}具有整数几何平均值,因此11在序列中。
|
|
数学
|
选择[范围[1000],整数Q[几何平均值[加入@@位置[反向[整数位数[#,2]],1]]]&]
|
|
黄体脂酮素
|
(PARI)ok(n)={ispower(prod(i=0,logint(n,2),if(bittest(n,i),i+1,1)),hammingweight(n))}
{对于(n=1,10^7,if(ok(n),print1(n,“,”))}\\安德鲁·霍罗伊德2019年9月29日
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 79, 82, 83, 85, 86, 87
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
补码开始:8、16、24、27、30、32、36、40。
|
|
链接
|
|
|
例子
|
n=1,4,12,72的因式分解:
() (4) (12) (72)
(2*2) (2*6) (8*9)
(3*4) (2*36)
(2*2*3) (3*24)
(4*18)
(6*12)
(2*4*9)
(2*6*6)
(3*3*8)
(3*4*6)
(2*2*18)
(2*3*12)
(2*2*2*9)
(2*2*3*6)
(2*3*3*4)
(2*2*2*3*3)
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
选择[Range[100],IntegerQ[Log[2,Length[facs[#]]]&]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 4, 8, 9, 13, 16, 18, 26, 32, 36, 52, 64, 72, 104, 128, 144, 208, 256, 257, 288, 321, 416, 512, 514, 576, 642, 832, 1024, 1028, 1152, 1284, 1664, 2048, 2056, 2304, 2568, 3328, 4096, 4112, 4608, 5136, 6656, 8192, 8224, 9216, 10272, 13312, 16384, 16448
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
数学
|
选择[Range[100],IntegerQ[Geometric Mean[Join@@Position[IntegerDigits[#,2],1]]&]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.021秒内完成
|