登录
A081942号
a(1)=1,a(n)=大于a(n-1)的最小数,使得a。
6
1, 2, 3, 4, 7, 10, 13, 24, 25, 28, 34, 37, 40, 43, 46, 51, 56, 60, 67, 70, 79, 84, 87, 94, 105, 106, 120, 126, 130, 133, 136, 147, 148, 151, 156, 161, 162, 163, 166, 171, 176, 177, 184, 190, 193, 204, 208, 211, 228, 234, 239, 242, 248, 252, 256, 262, 265, 270
抵消
1,2
评论
请参见A073666号对于非增量版本和A096100型以获得更严格的约束-M.F.哈斯勒2015年11月24日
链接
数学
f[s_List]:=块[{k=m=s[[-1]]},k++;而[!PrimeQ[k*m+1],k++];追加[s,k]];嵌套[f,{1},57](*罗伯特·威尔逊v2012年12月2日*)
smp[n_]:=模块[{m=n+1},While[!PrimeQ[m*n+1],m++];m] ;嵌套列表[smp,1,60](*哈维·P·戴尔2018年12月12日*)
黄体脂酮素
(PARI)A081942号(n,show=0,a=1)={for(n=2,n,show&&print1(a“,”);for(k=a+1,9e9,isprime(a*k+1)&&(a=k)&&break));a}\\使用第二个或第三个可选参数打印中间项或使用另一个起始值-M.F.哈斯勒2015年11月24日
关键词
非n
作者
扩展
更多条款来自Gabriel Cunningham(gcasey(AT)mit.edu),2003年4月8日
状态
经核准的