OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A245016型 最小的数k,使得P=k*素数(n+1)*(素数(n)-1)+1,Q=k*素数(n/1)*P+1,R=(素数)-1)*Q+1和P,Q,R都是素数。 1
10, 1986, 6, 696, 200, 222, 6510, 1050, 630, 756, 56, 726, 798, 126, 114, 6600, 166, 62, 1422, 12034, 170, 34944, 1410, 912, 2880, 2558, 1200, 9350, 5148, 1506, 5040, 384, 2250, 1680, 114, 396, 3248, 2310, 18930, 30810, 938, 1176, 1020, 2022, 8500, 142, 1760, 1218 (列表;图表;参考;;历史;文本;内部格式)
抵消
2,1
评论
Q=x^2+x+p(n),其中x=k*p(n+1)*(p(n)-1)是多项式素数。
链接
数学
snk[n_]:=模[{pr=素数[n],pr1=素数[1],k=1,p,q,r},p=k*pr1*(pr-1)+1;q=k*pr1*p+1;r=(pr-1)*q+1;While[!AllTrue[{p,q,r},PrimeQ],k++;p=k*pr1*(pr-1)+1;q=k*pr1*p+1;r=(pr-1)*q+1;];k] ;数组[snk,50,2](*程序使用Mathematica版本10*中的AllTrue函数)(*哈维·P·戴尔,2014年12月9日*)
程序
(PFGW和SCRIPT)
脚本
仪表板集成模块i
尺寸j
仪表板集成模块k
尺寸n,1
打开文件myf,a(n)
标签环1
设置n,n+1
设置k,0
设置i,p(n)-1
设置j,p(n+1)
标签回路2
设置k,k+2
项目建议书k*i*j+1
如果ISPRP,则转到
转到循环2
标签a
PRP k*j*(k*i*j+1)+1
如果ISPRP,则转到b
转到循环2
标签b
PRP i*(k*j*(k*i*j+1)+1
如果ISPRP,则转到c
转到循环2
标签c
写入myf,k
转到循环1
交叉参考
囊性纤维变性A005846号.
关键词
非n
作者
皮埃尔·卡米2014年9月17日
状态
已批准

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

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

上次修改时间:2024年6月9日16:35 EDT。包含373248个序列。(在oeis4上运行。)