|
| |
|
| A246033型 |
| “凸”素数：Tutaj意义上的极值素数。 |
|
4
|
|
|
|
2, 3, 7, 19, 47, 73, 113, 199, 283, 467, 661, 887, 1129, 1327, 1627, 2803, 3947, 4297, 5881, 6379, 7043, 9949, 10343, 13187, 15823, 18461, 24137, 33647, 34763, 37663, 42863, 43067, 59753, 59797, 82619, 96017, 102679, 129643, 130699, 142237, 155893, 187477, 194119
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
精确定义见Tutaj（2014）。
|
|
|
链接
|
卡尔·波梅兰斯，素数图《计算数学》，第33卷，第145页，1979年1月，第399-408页。
|
|
|
MAPLE公司
|
plist:=[2,3]；
列表：=[1,2]；
p:=5；
对于从3到100000的n，做实验上限！
plist:=[op（plist），p]；
nlist:=[op（nlist），n]；
doflat:=真；
而道夫拉特做到了
doflat:=假；
对于nrew from nops（nlist）-1 to 2 by-1 do
sloold:=（nlist[nrew]-nlist[nreew-1]）/（plist[nrew]-plist[nre-1]）；
slop:=（nlist[nrew+1]-nlist[nreew]）/（plist[nrew+1]-plist[nref]）；
如果slop>=slopold，则
plist:=子图（nrew=NULL，plist）；
nlist:=子图（nrew=NULL，nlist）；
doflat:=真；
结束条件：；
结束do：
结束do：
打印（plist）；
p:=下一素数（p）；
|
|
|
数学
|
条款=50；nmax0=25000；dnmax=1000；清除[f]；
f[nmax_]：=f[nmmax]=模块[{}，plist={2,3}；nlist={1,2}；p=5；
对于[n=3，n<=nmax，n++，
plist=附加[plist，p]；
nlist=附加[nlist，n]；doflat=真；
而[doflat，doflat=False；
对于[nrew=Length[nlist]-1，nrew>=2，nrew--，sloold=（nlist[[nrew]]-nlist[[nrew-1]]）/（plist[[nreew]]-plist[[n rew-1]）；slop=（nlist[[nrew+1]]-nlist[[nrew]]）/（plist[[nreew+1]]-plist[[nreew]]）；如果[slop>=slopold，plist[[nrew]]=Nothing nlist[[nreew]]=Nothing；doflat=真]]
]; p=下一个质数[p]
]; PadRight[plist，术语]
];
f[nmax=nmax0]；f[nmax=nmax+dnmax]；
当[打印[nmax]时；f[nmax][[1；；术语]]！=f[nmax-dnmax][[1；；术语]]，nmax=nmax+dnmax]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
