登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)

修订历史记录A120044年

(带下划线的文本是附加删除线文本是删除.)

显示所有更改。
A120044年 第10^n次3次几乎素数。
(历史已发布版本)
#2通过俄罗斯考克斯2012年3月30日星期五17:31:20 EDT
作者

_罗伯特·威尔逊v(rgwv(相对湿度)(自动变速箱)rgwv(相对湿度).通用域名格式),_,2006年2月15日

讨论
3月30日星期五 17:31
OEIS服务器: https://oeis.org/edit/global/156
#1通过N.J.A.斯隆2006年9月29日星期五美国东部夏令时03:00:00
名称

第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日

状态

经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年4月19日16:08 EDT。包含371794个序列。(在oeis4上运行。)