_罗伯特·威尔逊v(rgwv(相对湿度)(自动变速箱)rgwv(相对湿度).通用域名格式),_,2006年2月15日
OEIS服务器: https://oeis.org/edit/global/156
第10^n次3次几乎素数。
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}]
囊性纤维变性。A109251号,A006988号,A114125号,A120045年,A120046年.
更多,非n
Robert G.Wilson v(rgwv(AT)rgwv.com),2006年2月15日
经核准的