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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A277343号 a(1)是4。a(n)是最小半素q(A001358号)大于p=a(n-1),使得p/q是一个新的最小值。 1
4, 6, 10, 21, 46, 106, 247, 579, 1363, 3214, 7586, 17915, 42311, 99931, 236023, 557455, 1316638, 3109733, 7344803, 17347513, 40972678, 96772393, 228564417, 539840885, 1275037411, 3011480697, 7112745019, 16799424206, 39678162637, 93714913738, 221343037931, 522784885426, 1234753254431 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
受启发并类似于A265418型.
p/q->0.4233921907443041421568514422973114881582158896664。。。
链接
Robert G.Wilson v,n=1..200时的n,a(n)表
例子
4/6是0.666……是一个新的低点或最小值;
6/9为0.666……不是新的最小值,但;
6/10是0.600……是一个新的最小值;
10/21为0.476……是一个新的最小值;
21/46是0.456……是一个新的最小值;
…522784885426/1234753254431为0.423…是一个新的最小值;等。
数学
下一个半素数[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]];
p=4;q=6;mx=1;lst={};当[q<10^15,r=p/q;如果[r<mx,mx=r;附加到[lst,p];p=q];q=NextSemiPrime[楼层[q/r]]];lst(*或*)
f[lst_List]:=块[{p=lst[[-2]],q=lst[1]]},附加[lst,NextSemiPrime[Floor[q^2/p]]];lst={4,6};lst=嵌套[f,lst,30]
交叉参考
囊性纤维变性。A001358号邮编:265418.
关键词
非n
作者
罗伯特·威尔逊v2016年10月9日
状态
经核准的

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

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

上次修改时间:2024年4月25日23:59 EDT。包含371989个序列。(在oeis4上运行。)