|
|
20811年1月 |
| 正整数n,使得n+d+1是n的所有真除数d的素数。孪生素数对所有整数的推广。 |
|
2
|
|
|
3, 5, 9, 11, 17, 27, 29, 35, 39, 41, 59, 65, 71, 101, 107, 125, 137, 149, 179, 191, 197, 227, 237, 239, 269, 281, 305, 311, 347, 417, 419, 431, 437, 461, 521, 569, 597, 599, 617, 641, 659, 671, 749, 755, 809, 821, 827, 857, 881, 905, 935, 989, 1019, 1031, 1049
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
a(n)=第n个数,使得n+d+1是n的所有真除数d的素数。
|
|
例子
|
a(6)=27,因为真除数={1,3,3^2}和27+d+1={29,31,37}都是素数。
a(3980)=3^3*13147,因为真除数={1,3,3^2,3^313147,3*13147,3 ^2*13147}和a(3980+d+1={354971354973354979354997368117394411473293}都是素数。
|
|
MAPLE公司
|
带有(数字理论);五十: =[]:当nops(L)<=5000 do x:=2*k+1时,对于w到1 do,对于k从1开始;如果是素(x+2),则S:=除数(x)减去{x};Q: =映射(z->x+z+1,S);如果andmap(isprime,Q),则fd:=fopen(“C:/temp/n+d+1=prime-lower.txt”,APPEND);fprintf(fd,“%d”,x);fclose(fd);五十: =[op(L),x];打印(nops(L),ifactor(x));fi#Q-fi#x od od;
|
|
数学
|
选择[Range[21100]、AllTrue[#+Most[Divisions[#]]+1、PrimeQ]&](*需要Mathematica版本10或更高版本*)(*哈维·P·戴尔2020年10月22日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|