|
|
A181821号 |
| a(n)=分解为乘积p(i)^e(i)的最小整数,使得乘积p。 |
|
122
|
|
|
1, 2, 4, 6, 8, 12, 16, 30, 36, 24, 32, 60, 64, 48, 72, 210, 128, 180, 256, 120, 144, 96, 512, 420, 216, 192, 900, 240, 1024, 360, 2048, 2310, 288, 384, 432, 1260, 4096, 768, 576, 840, 8192, 720, 16384, 480, 1800, 1536, 32768, 4620, 1296, 1080, 1152, 960, 65536
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
若n=Product_i素数(e(i)),且e(i。例如,90=prime(3)*prime(2)*price(2)*prime(1),那么a(90)=prime-古斯·怀斯曼,2019年1月2日
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
24的标准因式分解是2^3*3^1。因此,p(e(i))=素数(3)*素数(1)(即。,A000040型(3)*A000040型(1) ),等于5*2=10。因为24是p(e(i))=10,a(10)=24的最小整数。
|
|
MAPLE公司
|
a: =n->(l->mul(ithprime(i)^l[i],i=1..nops(l)))(排序(映射(i->
数字理论[pi](i[1])$i[2],ifactors(n)[2]),`>`)):
|
|
数学
|
使用[{s=Array[If[#==1,1,Times@@Map[Prime@Last@#&,FactorInteger@#]]&,2^16]},Array[First@FirstPosition[s,#]&,LengthWhile[Differences@Union@s,#==1&]](*迈克尔·德弗利格2018年12月17日*)
表[Times@@MapIndexed[Prime[#2[[1]]]^#1&,Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]],{n,30}](*古斯·怀斯曼2019年1月2日*)
|
|
黄体脂酮素
|
(PARI)A181821号(n) ={my(f=因子(n),p=0,m=1);forstep(i=#f~,1,-1,while(f[i,2],f[i,2]-;m*=(p=nextprime(p+1))^ primepi(f[i,1]));(m);}\\安蒂·卡图恩2018年12月10日
(Python)
从数学导入prod
从sympy导入素数、素数pi、factorint
定义A181821号(n) :return prod(prime(i)**e代表枚举中的i,e(sorted)(map(primepi,factorint(n,multiple=True)),reverse=True,1))#柴华武2023年9月15日
|
|
交叉参考
|
囊性纤维变性。A000040型,A001221号,A001222号,A002110号,A056239号,A071625号,A112798号,A118914号,A122111号,A124859号,A182850型,A305936型,A361808飞机.
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|