A351318-OEIS公司

A351318

a（n）是最小素数（k），k>n，这样A036689号（k）或A036690号（k）是s（n）+s（n+1）+…+s（j），j<k，其中每个s（i）是A036689号（i）或A036690号（i）

3, 7, 13, 31, 47, 47, 53, 53, 73, 137, 103, 131, 109, 137, 239, 257, 229, 349, 257, 269, 331, 347, 389, 409, 257, 389, 251, 229, 499, 487, 509, 491, 541, 487, 353, 739, 571, 743, 727, 307, 883, 743, 929, 827, 971, 911, 887, 569, 1063, 751, 1013, 883, 1451, 977, 1259, 853, 983, 947, 967, 1049

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

a（n）是最小素数p，使得p*（p-1）或p*（p+1。

链接

罗伯特·伊斯雷尔，n=1..2400时的n，a（n）表

例子

a（3）=13，因为素数（3）=5，接下来的两个素数是7和11，以及5*6+7*6+11*10=182=13*14。

MAPLE公司

P： =选择（i素数，[2，seq（i，i=3..10^6，2）]）：

R： =转换（映射（p->（p*（p-1），p*（p+1）），p），集合）：

f： =proc（n）局部S，T，SR，i，S；

S： ={P[n]*（P[n]-1），P[n]*（P[n]+1）}；

对于n+1中的i do

T： =[P[i]*（P[i]-1），P[i]*（P[i]+1）]；

S： =地图（S->（S+T[1]，S+T[2]），S）；

SR:=S与R相交；

如果SR<>{}，则

s： =（sqrt（1+4*min（SR））-1）/2；

如果为isprime（s），则返回s，否则返回s+1 fi

fi（菲涅耳）

日

结束进程：

地图（f，[1..100]美元）；

交叉参考

囊性纤维变性。A036889号,A036890号.

上下文中的序列：邮编：163418 A309738型 A161218号*A068679号 A006978号 A060424号

相邻序列：A351315型 A351316型 A351317型*A351319 A351320型 A351321型

关键字

非n

作者

J.M.贝戈和罗伯特·伊斯雷尔2022年3月18日

状态

经核准的