检验过的
经核准的
提出
编辑
使用[{s=Array[Boole[CompositeQ@#]Total@Flatten[ConstantArray[#1,#2]&@@@FactorInteger@#]&,10^4]/.0->“”},表[FirstPosition[s,_?(Mod[#,p]==0&)][[1],{p,Prime@Range@56}]](*迈克尔·德弗利格,2018年4月14日*)
Charles R Greathouse IV,<a href=“/A288189型/b288189.txt“>n表,n=1..10000时为a(n)</a>
查尔斯·格里特豪斯四世:我认为这已经准备好发表了。谢谢你,大卫。
a(n)=我的(pn=素数(n));复合材料(c=2, , pn码, , 如果(sopfr(c)%pn==0,返回(c))\\米歇尔·马库斯2017年7月3日
米歇尔·马库斯:哦,是的,最好在pn之后开始
a(n)=我的(pn码=首要的(n个)); 对于复合材料(c=2,如果(sopfr(c)%首要的(n个) pn码 ==0,返回(c)); \\ _米歇尔 马库斯_, 七月 03 2017
米歇尔·马库斯:好的,是的,谢谢;我签署了计划