A218863-OEIS公司

A218863型

最小素数p，使得n*p大于p^n-1和p^n+1的最大素数因子。

3, 3, 37, 2383, 69011, 4027

抵消

1,1

a（7）>4000000-T.D.诺伊2012年11月8日

链接

例子

4027^6 - 1 = 2^3*3^2*7*11*13*19*53*61*229*709*1759*3373,

4027^6 + 1 = 2*5*37*41*1069*1381*1993*9733*9817,

以及6*4027>3373和6*4027>9817，

3^1-1=2，3^1+1=2^2和3>2。

MAPLE公司

A218863型：=进程（n）

p:=2；

因为我从一开始

最大值（op（数值[因子集]（p^n-1））；

如果n*p>%，则

最大值（op（数值[factorset]（p^n+1））；

如果n*p>%，则

返回p；

结束if；

结束条件：；

p:=下一素数（p）；

结束do：

结束进程：#R.J.马塔尔2012年11月7日

数学

表[p=2；当[n*p<=FactorInteger[p^n-1][[-1，1]]|n*p<=FactorInteger[p^n+1][[-1,1]]时，p=NextPrime[p]]；p、 {n，6}](*T.D.诺伊2012年11月7日*）

交叉参考

关键词

非n

作者

状态

经核准的