显示找到的217个结果中的1-10个。
第页12
三
4
5
6
7
8
9
10...22
1, 2, 4, 6, 12, 16, 24, 36, 48, 60, 64, 120, 144, 180, 192, 240, 360, 576, 720, 840, 900, 960, 1024, 1260, 1296, 1680, 2520, 2880, 3072, 3600, 4096, 5040, 5184, 6300, 6480, 6720, 7560, 9216, 10080, 12288, 14400, 15120, 15360, 20160, 25200, 25920, 27720, 32400, 36864, 44100
参考文献
J.Roberts,《整数的诱惑》,数学。美国协会,1992年,第86页。
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
链接
J.Roberts,整数的诱惑,第81、86页的带注释扫描件,附注释。
Anna K.Savvopoulou和Christopher M.Wedrychowicz,关于具有给定除数的最小数,《拉马努詹期刊》,2015年,第37卷,第51-64页。
MAPLE公司
对于n从1到10^5 do
t: =理论数量:-τ(n);
如果未赋值(B[t]),则B[t]:=n fi;
日期:
数学
A007416号=Reap[For[s=1,s<=10^5,s++,If[Abs[Product[DivisorSigma[0,i]-DivisorSigma[0,s],{i,1,s-1}]>0,打印[s];母猪[s]]][[2,1]](*Jean-François Alcover公司2012年11月19日,巴黎之后*)
黄体脂酮素
(PARI)对于(s=1,10^6,如果(abs(prod(i=1,s-1,numdiv(i)-numdiv(s)))>0,打印1(s,“,”))
(PARI)是(n)=my(d=numdiv(n));对于(i=1,n-1,如果(numdiv(i)==d,返回(0)));1 \\查尔斯·格里特豪斯四世2013年2月20日
(平价)
A283980型(n,f=因子(n))=prod(i=1,#f~,my(p=f[i,1]);如果(p==2,6,下一素数(p+1))^f[i,2])
A025487do(e)=my(v=列表([1,2]),i=2,u=2^e,t);当(v[i]!=u时,如果(2*v[i]<=u,则列表输入(v,2*v[i]);t吨=A283980型(v[i]);如果(t<=u,列表输入(v,t));i++);集合(v)
winnow(v,lim=v[#v])=my(m=Map(),u=List());对于(i=1,#v,如果(v[i]>lim,break);我的(t=numdiv(v[i]));如果(!mapisdefined(m,t),则mapput(m,t,0);列表(u,v[i]));m=0;Vec(u)(车辆)
列表(lim)=winnow(A025487do(logint(lim\1-1,2)+1),lim)\\查尔斯·格里特豪斯四世2022年11月17日
(哈斯克尔)
a007416 n=a007416_列表!!(n-1)
a007416_list=f 1[]其中
f x ts=如果tau`elem`ts,则f(x+1)ts其他x:f(x+1)(tau:ts)
其中tau=a000005'x
8, 16, 24, 32, 48, 64, 72, 80, 96, 108, 112, 128, 144, 160, 162, 176, 192, 208, 216, 224, 243, 256, 272, 288, 304, 320, 324, 352, 368, 384, 416, 432, 448, 464, 480, 486, 496, 512, 544, 576, 592, 608, 640, 648, 656, 672, 688, 704, 729, 736, 752, 768, 832, 848
评论
Grost证明了p^k在序列中当且仅当2^p<素数(k),其中p是素数-托马斯·奥多夫斯基2015年6月15日
只有极少数初始项{108、162、243、324、486、729…}不是8的倍数。注意,这个列表中的第2到第6个(当然更多)等于81*k=(10+1/8)*a(n),其中n=2,3,4,5,7-M.F.哈斯勒2022年6月15日
链接
罗恩·布朗,具有给定除数的最小数(2009),《数论杂志》116:1(2005),第150-158页。
舒元美,一类新的普通整数《数论杂志》,第133卷,第10期,2013年10月,第3559-3564页。
Anna K.Savvopoulou和Christopher M.Wedrychowicz,关于具有给定除数的最小数《拉马努扬杂志》,2015年,第37卷,第51-64页。
8, 24, 48, 64, 72, 80, 108, 112, 128, 144, 160, 162, 176, 192, 208, 216, 224, 243, 256, 272, 288, 304, 320, 324, 352, 368, 384, 416, 432, 448, 464, 480, 486, 496, 512, 544, 576, 592, 608, 640, 648, 656, 672, 688, 704, 729, 736, 752, 768, 832, 848, 864, 896
评论
其中,具有k个因子的最小数的素数签名与具有k个因数的最小奇数的素数签名不同。
1, 2, 12, 24, 36, 60, 180, 240, 360, 720, 1260, 1680, 3600, 5040, 6720, 10080, 15120, 20160, 25200, 32400, 55440, 60480, 100800, 110880, 181440, 221760, 226800, 277200, 665280, 720720, 810000, 907200, 1108800, 1441440, 1587600, 1995840, 2494800, 2882880, 3548160, 3603600
例子
k=m/n=1、1、2、3、4、5、10、12、15、24、35、42。。。是一个整数。
例如:60/12=5,180/18=10,240/20=12,360/24=15。
数学
t=表[0,{2^10}];Do[d=除数Sigma[0,n];如果[d<2^10&&t[[d]]==0,t[[d]]=n],{n,2882880}];静止[Union[t[[Select[Range[2^10],IntegerQ[t[#]/#]&]]](*罗伯特·威尔逊v2005年9月21日*)
1, 2, 12, 24, 36, 60, 180, 240, 360, 720, 1260, 1680, 3600, 6720, 5040, 10080, 32400, 15120, 20160, 25200, 60480, 55440, 810000, 100800, 181440, 110880, 226800, 221760, 277200, 907200, 665280, 1587600, 720720, 5670000, 1108800, 3548160, 1995840, 1441440, 2494800, 6350400
例子
12是一个项,因为它是最小的正整数,只有6个除数,可以被6整除。
数学
取[#,33]&@DeleteCase[#,0]&@Function[s,ReplacePart[#,Flatten@Map[{#->函数[k,k Boole[Divisible[k,#]]]@Lookup[s,#]}&,Keys]]&@ConstantArray[0,Max@Keys]]@Map[First,KeySort@PositionIndex@Table[DivisorSigma[0,n],{n,10^7}]](*迈克尔·德弗利格,2016年12月11日,第10版*)
1, 2, 3, 4, 6, 8, 9, 10, 16, 20, 24, 30, 48, 60, 64, 72, 80, 84, 100, 108, 126, 192, 162, 224, 189, 384, 448, 512, 576, 672, 11520
扩展
a(31)=11520来自雷·钱德勒,2008年6月30日
1, 2, 4, 6, 12, 24, 36, 48, 120, 240, 360, 720, 2520, 5040, 7560, 10080, 15120, 20160, 45360, 50400, 100800, 352800, 705600, 332640, 665280, 4324320, 8648640, 17297280, 21621600, 43243200, 13492656777600
扩展
a(31)=13492656777600来自雷·钱德勒,2008年6月30日
27, 45, 75, 105, 117, 135, 147, 165, 187, 189, 231, 243, 245, 275, 285, 297, 315, 333, 345, 357, 375, 387, 403, 405, 423, 425, 427, 429, 435, 437, 459, 473, 495, 507, 525, 555, 567, 583, 585, 605, 621, 627, 637, 663, 665, 675, 693, 729, 731, 735, 741, 763, 765, 775, 777, 795
评论
由于只有平方数的除数是奇数,对于奇数k,A005179号(k) 通常比任何一个都大A005179号(k-1)或A005179号(k+1)(或两者)。此序列列出了异常。10^3以下有71个术语,10^4以下有963个术语,10 ^5以下有11179个术语。似乎这个序列对所有奇数的密度都大于0.2。
例子
45是一个术语,因为有45个除数的最小数字是3600,这比两者都小A005179号(44)=15360和A005179号(46)=12582912,所以45是一个术语。
MAPLE公司
isA:=k->k::奇数和A[k]<A[k-1]以及A[k]<A[k+1]:
选择(isA,[$3.799])#彼得·卢什尼2019年10月30日
187, 243, 403, 423, 425, 427, 435, 583, 663, 729, 763, 775, 845, 891, 1003, 1083, 1125, 1265, 1267, 1375, 1395, 1419, 1545, 1573, 1575, 1615, 1643, 1645, 1755, 1771, 1813, 1843, 1885, 1925, 1953, 2035, 2275, 2385, 2403, 2523, 2525, 2533, 2635, 2673, 2695
评论
尽管事实上只有平方数的除数是奇数,但这里有很多令人惊讶的术语。10^3、10^4和10^5以下的项数分别为14、208和3004。
黄体脂酮素
(PARI)是A339863(k)=如果(k%2&&k>1,my(v=向量(5,n,A005179号(k-2+n));v[2]<v[1]&v[2]<v[3]&v[4]<v[3]&v[4]<v[5],0)
24, 360, 2520, 7560, 10080, 15120, 50400, 60480, 83160, 110880, 166320, 352800, 967680, 332640, 3870720, 554400, 665280, 2822400, 1081080, 61931520, 1441440, 247726080, 2162160, 3880800, 10644480, 3963617280, 4324320, 42577920, 7207200
搜索在0.092秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月23日10:58。包含376154个序列。(在oeis4上运行。)
|