登录
A085063号
a(n)是使n+k和n*k+1为素数的最小数k。
7
1, 1, 2, 1, 2, 1, 4, 5, 2, 1, 2, 1, 4, 3, 2, 1, 6, 1, 10, 3, 2, 1, 6, 13, 4, 3, 4, 1, 2, 1, 10, 11, 10, 3, 2, 1, 4, 5, 2, 1, 2, 1, 4, 9, 14, 1, 6, 5, 4, 3, 2, 1, 14, 5, 6, 5, 4, 1, 12, 1, 6, 5, 10, 3, 2, 1, 4, 15, 2, 1, 8, 1, 6, 27, 8, 3, 6, 1, 4, 3, 2, 1, 6, 5, 12, 11, 20, 1, 12, 7, 6, 5, 4, 3, 2, 1, 4, 5
抵消
1,3
评论
如果n+1是素数,则a(n)=1;如果n+1不是素数,则a(n)=A120223号(n) ●●●●。
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
例子
a(3)=2,因为3+2=5和3*2+1=7是素数;
a(8)=5,因为8+5=13和8*5+1=41是质数,
MAPLE公司
f: =程序(n)局部k;
从1+(n mod 2)到2do的k
如果是isprime(n+k)和isprim(n*k+1),则返回kfi
结束进程:
f(1):=1:#罗伯特·伊斯雷尔2018年5月14日
数学
收获[Do[Do[If[PrimeQ[{n+x,n*x+1}]=={True,True},Sow[x];中断[]],{x,1100}],{n,120}]][[2,1]]
nkp[n_]:=模[{k=1},While[!And@@PrimeQ[{n+k,n*k+1}],k++];k];数组[nkp,100](*哈维·P·戴尔2012年4月11日*)
黄体脂酮素
(PARI)a(n)={my(k=1);while(!isprime(n+k)||!isprim(n*k+1),k++);k;}\\米歇尔·马库斯2018年5月14日
关键词
非n
作者
阿玛纳斯·穆尔西2003年6月28日
扩展
更正和扩展人扎克·塞多夫2006年6月10日
状态
经核准的