|
| |
|
| A057689号 |
| “Px+1”映射下P轨迹中的最大项，其中P=第n个素数，如果不存在这样的项，则为-1。 |
|
10
|
|
|
|
16, 66, 50, 672, 20372, 494, 36918, 1404, 12210, 4248, 5070, 1682, 1850, 2210, 35882, 102720, 94484303672, 30084, 178992, 5330, 246560, 6890, 294253314, 8416400, 515202, 134004, 2810784, 2810883506682183650, 377198408, 320168
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
2,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
对于n=3，P=7：7的轨迹是7，50，25，5，1，8，4，2，1，8,4，2。。。，其最大项为50，循环长度为4，在进入循环之前有4个项。
|
|
|
数学
|
Px1[p_，n_]：=捕捉[For[i=1，i<PrimePi[p]，i++，If[Divisible[n，Prime[i]]，Throw[n/Prime[i]]]；p*n+1]；
带有[{nmax=50}，表[Max[NestWhileList[Px1[Prime[n]，#]&，Prime[n]，UnsameQ，All]]，{n，2，nmax}]](*保罗·沙萨2023年12月11日*）
|
|
|
黄体脂酮素
|
（Python）
从sympy导入prime，primerange
定义a（n）：
P=素数（n）
x、 plst，seen=P，list（素数范围（2，P）），set（）
当x>1且x不在可见范围内时：
参见。添加（x）
x=下一个（如果x%p==0，则x//p代表plst中的p），p*x+1）
返回最大值（可见）
打印（[a（n）代表范围（2，32）中的n]）#迈克尔·布拉尼基2023年12月11日
|
|
|
交叉参考
|
参见。A057446号,A057216号,A057522号,A057534号,A057614号。另请参阅A033478号,A057688号,A057684号,A057685号,A057686美元,A057687号,A057690号,A057691号.
|
|
|
关键字
|
非n,美好的,容易的
|
|
|
作者
|
|
|
|
扩展
|
Larry Reeves（larryr（AT）acm.org）提供的更多条款，2000年11月8日
|
|
|
状态
|
经核准的
|
| |
|
|
