|
| |
|
| A336688型 |
| 素数p使得Wendt行列式A048954号（p） 素因子小于p。 |
|
0
|
| |
|
|
|
抵消
|
1,1
|
|
|
评论
|
Michael B Rees推测，对于所有素数p，每个小于p的完全指数素数因子，如果存在，则除以Wendt行列式W（p），其形式为k*p+1。
该序列识别具有小于p的素数因子的Wendt行列式W（p）的素数指数p。
|
|
|
链接
|
|
|
|
例子
|
a（3）=13。质数指数为p=13的Wendt行列式的质数因子小于p。W（13）=3^6*53^2*79^2*131^2*521^2*8191和3^6=729的形式为k*13+1。这是此类行列式的第三次出现。
|
|
|
数学
|
w[n_]：=结果[x^n-1，（1+x）^n-1、x]；getp[n_]：=模块[{W=W[n]，lst=表[Prime[m]，{m，1，PrimePi[n]}]，lst1={}，j，k，l}，Do[j=1；当[W>0&&IntegerQ[W/lst[l]]^j]，j++]时；如果[j-1>0，AppendTo[lst1，{lst[[l]]，j-1}]]，{l，1，长度@lst}]; 连接[{n}，lst1]]；lst={}；Do[lst1=getp[Prime[n]]；如果[长度@lst1>1，附加到[lst，lst1[[1]]]，{n，1，PrimePi[331]}]；第一次试验
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,更多
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
