A261123-OEIS公司

A261123型

a（1）=2；此后，对于所有m<n，a（n）=最小素数>a（n-1），与gpf（1+Product{k=1..m}a（k））不同，其中gpf是最大素数因子。

2, 5, 7, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283

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

抵消

1,1

如果用spf替换gpf，则两个序列在a（40）处发散（这里是193，如果使用spf，则等于191）-乔瓦尼·雷斯塔2015年8月14日

在前1000个项中，a（n+1）总是最小素数>a（n），但n=1、3、17、39、151和422除外，其中a（n+1）=下一素数（a（n=A151800型). -M.F.哈斯勒2015年8月17日

引物不按顺序出现：3，11，71，191，911，2969，9103，55871，313583-罗伯特·威尔逊v2015年8月17日

链接

乔瓦尼·雷斯塔，n，a（n）表，n=1.10000

数学

gpfQ[x_，p_]：=Mod[x，p]==0&&块[{n=x/p^IntegerExponent[x，p]，f=2}，而[f<p&&n>1，n/=f^Integer Exponent[n，f]；f=下一个Prime@f]; n==1]；bad[v_，p_]：=Catch[Do[If[gpfQ[e+1，p]，Throw@True]，{e，v}]；错误]；L={2}；pr={2}；当[长度[L]<100时，p=NextPrime@L[[-1]]；而[bad[pr，p]，p=下一个Prime@p]; 附录[L，p]；附加到[pr，p Last@pr]]；L（左）(*乔瓦尼·雷斯塔2015年8月14日*）

黄体脂酮素

（PARI）vecprod1（v，n）=产品（i=1，n，v[i]）；

gpf（n）=my（f=因子（n）[，1]~）；f[#f]；

is_ok（w，n）=我的（x=1）；对于（i=1，#w，如果（素数（n）==gpf（1+vecprod1（w，i）），x=0；断裂）；x；

get_next（v，p）=直到（is_ok（v，p），p++）；p；

第一个（m）={my（v=[]，p=1）；v=concat（v，质数（1））；p++；对于（i=2，m，p=get_next（v，p）；v=concat

（PARI）A261123型（N，v=[2]，f=[]）={while（#v<N，f=setunion（f，factor（prod（i=1，#v，v[i]）+1，0）[，1][-1..-1]~）；对于素数（p=v[#v]+1，if（！setsearch（f，p），v=concat（v，p）；break））；v}\\M.F.哈斯勒2015年8月17日

交叉参考

囊性纤维变性。A006530号,A151800型.

上下文中的序列：A293762型 A161889号 A275284号*A336451型 A249330型 A069346号

相邻序列：A261120型 A261121型 2011年2月22日*A261124型 A261125型 2011年2月26日

关键词

非n

作者

安德斯·赫尔斯特罗姆2015年8月9日

扩展

a（51）-a（57）来自乔瓦尼·雷斯塔2015年8月14日

状态

经核准的