登录
具有2n个除数的最小数。
(原名M1586)
24

%I M1586#2021年4月4日04:28:40

%S 2,6,12,24,48,60192120180240307236012288960720840196608,

%电话:1260786432168028801536012582912252064806144063006720,

%电话:805306368685040322125472756046080983402592010080206158430208393216018432015120

%N具有2n个除数的最小数。

%C指乘法n-完全的最小数,即其除数等于m^n.-Lekraj Beedassy_的乘积的最小数m,2004年9月18日

%C对于n=1至5,a(n)等于A008578、A007422、A162947、A048945、A030628的第二项_米歇尔·马库斯,2014年2月4日

%D M.Abramowitz和I.A.Stegun编辑,《数学函数手册》,国家标准应用数学局。1964年第55辑(以及各种重印本),第840页。

%D A.H.Beiler,《数字理论中的娱乐》,纽约州多佛,1964年,第23页。

%D N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。

%H Vaclav Kotesovec,<a href=“/A003680/b003680.txt”>n表,a(n)表示n=1..3300(术语1..1000来自T.D.Noe,使用A005179)

%H M.Abramowitz和I.A.Stegun编辑,<A href=“http://www.convertit.com/Go/convertit/Reference/AMS55.ASP“>《数学函数手册》</a>,美国国家标准局,应用数学。第55辑,第10版,1972年[备选扫描件]。

%F A005179(n)的二等分_Lekraj Beedassy,2004年9月21日

%t A005179=案例[导入[“https://oeis.org/A005179/b005179.txt“,”表格“],{_,_}][[All,2]];

%t A={#,DivisorSigma[0,#]}&/@A005179;

%t a[n_]:=选择第一个[a,#[2]]==2n&][1];

%t a/@Range[1000](*Jean-François Alcover_,2019年11月10日*)

%tmp[1,m]:={{}};mp[n,1]:={{}};mp[n_?素数Q,m_]:=如果[m<n,{},{{n}}];mp[n_,m_]:=连接@@表[Map[Prepend[#,d]&,mp[n/d,d]],{d,选择[Rest[Divisors[n]],#<=m&]}];mp[n]:=mp[n,n];表[mulpar=mp[2*n]-1;Min[表[Product[Prime[s]^ mulpar[[j,s]],{s,1,Length[mulpar[[j]]}],{j,1,长度[mulpar]}]],},{n,1,100}](*_Vaclav Kotesovec_,2021年4月4日*)

%o(PARI)a(n)=我的(k=2*n);while(numdiv(k))=2*n,k++);2017年6月23日,科勒斯R Greathouse IV

%o(Python)

%o来自sympy导入除数

%o定义a(n):

%o m=4*n-2

%o while len(除数(m))!=2*n:m+=1

%o返回m

%o打印([a(n)代表范围(1,19)中的n)]#_Michael S.Branicky_,2021年2月6日

%Y参考A005179(n)、A061283(2n-1)、A118224(至少2n)。

%K nonn,简单,不错

%O 1,1号机组

%A _N.J.A.Sloane,_Mira Bernstein_

%E更多来自Jud McCranie的条款(1997年10月15日)