|
|
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
|
|
评论
|
由于半素数比开始时的素数稀疏,因此序列中包含的较少的半素数要比类似的素数序列中包含更多的半素素。事实上,我们必须在第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}]
|
|
交叉参考
|
|
|
关键词
|
非n,坚硬的
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|