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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A226526号 增长最慢的半素数序列,其中1/(sp+1)和为1,但实际上没有达到。 1
4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 69, 1497, 259465, 4852747709, 3429487924785490781, 305153651313989042415043589313598477, 21932475414742921908206321699222250910796483151080020353252738457741771 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
半素数类似于A181503号.
由于半素数比开始时的素数稀疏,因此序列中包含的较少的半素数要比类似的素数序列中包含更多的半素素。事实上,我们必须在第17个半素数49不存在之前到达它,而在A181503年,只需到达第六个素数,13就不存在了。
如果将1/(a(n)+1)更改为简单的1/a(n”),则序列将变为:4、6、9、10、14、15、21、22、25、26、33、34、355、16627、76723511、172187402266833、374886275842473712491638217368219、9036922116709844667289331349855321276375893114741410804131,。。。。
链接
例子
1/(4+1)+1/(6+1)+1/1(9+1)+…1/(46+1)+1/2(69+1)仍小于1。如果使用46到69之间的任何半素数,{}的和将超过1,而不是1/69。
数学
semiPrimeQ[n_]:=Plus@@Last/@FactorInteger@n==2(*对于Mmca v或更高版本的用户,可以使用PrimeOmega@n==2*)NextSemiPrime[n_,k_:1]:=块[{c=0,sgn=Sign[k]},sp=n+sgn;当[c<Abs[k]时,当[PrimeOmega[sp]!=2,如果[sgn<0,sp--,sp++]];如果[sgn<0,sp--,sp++];c++];sp+如果[sgn<0,1,-1]];a[n_]:=a[n]=块[{sm=Sum[1/(a[i]+1),{i,n-1}]},下半素数[Max[a[n-1],Floor[1/(1-sm)]]];a[0]=1;执行[打印[{n,a[n]//Timing}],{n,25}]
交叉参考
囊性纤维变性。A181503号,A226527号.
关键词
非n,坚硬的
作者
状态
已批准

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

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

上次修改时间:美国东部夏令时2024年3月29日00:26。包含371264个序列。(在oeis4上运行。)