|
|
123627英镑 |
| 最小素数q,使得(q^p+1)/(q+1)是素数,其中p=素数(n);如果不存在这样的素数q,则为0。 |
|
8
|
|
|
0, 2, 2, 2, 2, 2, 2, 2, 2, 7, 2, 19, 61, 2, 7, 839, 89, 2, 5, 409, 571, 2, 809, 227, 317, 2, 5, 79, 23, 4073, 2, 281, 89, 739, 1427, 727, 19, 19, 2, 281, 11, 2143, 2, 1013, 4259, 2, 661, 1879, 401, 5, 4099, 1579, 137, 43, 487, 307, 547, 1709, 43, 3, 463, 2161, 353, 443, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
a(1)=0,因为这样的素数不存在,Mod[n^2+1,n+1]=2表示n>1。
对应的素数(q^p+1)/(q+1),其中素数q=a(n)和p=prime[n]列在A123628号[n] ={1,3,11,436832731436911747632796203402488219476646465854701715827883,…}。
对于n=PrimePi,a(n)=2[A000978号[k] ={2,3,4,5,6,7,8,9,11,14,18,22,26,31,39,43,46,65,6912638049576212851304,1364,1479,1697,4469,8135,9193,11065,11902,12923,13103,23396,23642,31850,...}.
形式(2^p+1)/3的对应素数是Wagstaff素数,列在A000979号[n] ={3,11,436832731436911747632796203715827883,…}。
|
|
链接
|
|
|
公式
|
|
|
MAPLE公司
|
f: =proc(n)局部p,q;
p: =ithprime(n);
q: =1;
做
q: =下一素数(q);
如果是i素数((q^p+1)/(q+1)),则返回qfi
日
结束进程:
f(1):=0:
|
|
数学
|
a(1)=0,对于n>1 Do[p=Prime[k];n=1;q=素数[n];cp=(q^p+1)/(q+1);而[!PrimeQ[cp],n=n+1;q=素数[n];cp=(q^p+1)/(q+1)];打印[q],{k,2,61}]
Do[p=质数[k];n=1;q=素数[n];cp=(q^p+1)/(q+1);而[!PrimeQ[cp],n=n+1;q=素数[n];cp=(q^p+1)/(q+1)];打印[{k,q}],{k,1,134}]
spq[n_]:=模[{p=Prime[n],q=2},While[!PrimeQ[(q^p+1)/(q+1)],q=NextPrime[q]];q] ;联接[{0},数组[spq,70,2]](*哈维·P·戴尔2019年3月23日*)
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|