搜索: 编号:a120044
|
|
|
|
8, 45, 412, 3918, 38991, 395085, 4046429, 41657362, 429891626, 4439956573, 45851698382, 473238120286, 4880292241955, 50280826966354
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,1
|
|
链接
|
|
|
数学
|
ThreeAlmostPrimePi[n_]:=总和[PrimePi[n/(素数@i*素数@j)]-j+1,{i,PrimePi[n^(1/3)]},{j,i,PrimePi@Sqrt[n/素数@i]}]; ThreeAlmostPrime[n_]:=块[{e=楼层[Log[2,n]],a,b},a=2^e;做[b=2^p;而[ThreeAlmostPrimePi[a]<n,a=a+b];a=a-b/2,{p,e,0,-1}];a+b/2];执行[打印@ThreeAlmostPrime[10^n],{n,0,13}]
三素数[n_]:=块[{e=楼层[Log[2,n]+2],a,b},a=2^e;Do[b=2^p;While[ThreePrimePi[a]<n,a=a+b];a=a-b/2,{p,e,0,-1}];a+b/2];表[ThreePrime[n],{n,0,13}]
|
|
交叉参考
|
|
|
关键词
|
更多,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.008秒内完成
|