登录

OEIS由OEIS基金会的许多慷慨捐助者.

 

提示 （来自的问候整数序列在线百科全书!) A348671型 a（n）是最小素数p，因此有n个素数q<p和2*p+q素数。 1 2, 5, 7, 13, 53, 43, 47, 67, 107, 137, 173, 191, 163, 271, 307, 277, 313, 389, 461, 487, 593, 523, 563, 613, 691, 739, 787, 811, 797, 937, 983, 887, 1039, 1069, 997, 1181, 1117, 1249, 1301, 1453, 1303, 1597, 1399, 1483, 1567, 1721, 1871, 1783, 1693, 1697, 1987, 1877, 1847, 2311, 2143, 2309, 2281 (列表；图表；参考；听；历史；文本；内部格式) 抵消 0,1 链接 罗伯特·伊斯雷尔，n=0..1000时的n，a（n）表 例子 a（3）=13，因为有3个素数q<13带有2*13+q素数，即2*13+3=29，2*13+5=31，2*13+11=37，而没有一个素数<13正好有3个这样的素数。 MAPLE公司 P： =[seq（ithprime（i），i=1..10000）]： M： =100:V:=阵列（0..M）：计数：=0: 当计数<M+1 do时，k从1到10000 v： =nops（选择（isprime，{seq（2*P[k]+P[j]，j=1..k-1）}）； 如果v<=M且v[v]=0，则 计数：=计数+1；V[V]：=P[k]； fi（菲涅耳） 日期： 转换（V，列表）； 数学 cnt[p_]：=计数[范围[2，p-1]，_？（PrimeQ[#]&&PrimeQ[2*p+#]&）]；seq[m_]：=模块[{s=表[0，{m}]，c=0，p=1，i}，而[c<m，p=NextPrime[p]；i=cnt[p]+1；如果[i<=m&&s[[i]]==0，c++；s[[i]]=p]]；s] ；序列[50](*阿米拉姆·埃尔达尔2021年12月13日*） 交叉参考 上下文中的序列：A053647号 A023242号 164570英镑*A265811型 A265793型 A126338号 相邻序列：A348668飞机 A348669型 A348670型*A348672型 A348673型 A348674飞机 关键词 非n 作者 J.M.贝戈和罗伯特·伊斯雷尔2021年12月13日 状态 经核准的

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

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

上次修改时间：美国东部夏令时2024年4月19日18:05。包含371798个序列。（在oeis4上运行。）