|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
数学
|
平滑数[p_，max_]：=模块[{a，aa，k，pp，iter}，k=PrimePi[p]；aa=数组[a，k]；pp=素数[范围[k]]；iter=表[{a[j]，0，PowerExpand@Log[pp[j]]，max/Times@@（取[pp，j-1]^取[aa，j-1）]}，{j，1，k}]；表[Times@@（pp^aa），Sequence@@iter/Evaluate]//Flatten//Sort]；sn=平滑数[3，10^100]；收获[For[i=1，i<=长度[sn]-1，i++，If[CoprimQ[sn[i]]，sn[i+1]]]，Sow[sn[[i+1]]]][[2，1]](*Jean-François Alcover公司2016年11月11日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
