|
| |
|
| A136585号 |
| a*x+b*y=c素丢番图方程的解：素[m]x+Prime[m+1]*y=Prime[m-1]：在x+y*n=Prime[m-1]中作为Abs[n*素[m]或Abs[n素[m+1]。 |
|
0
|
|
|
|
2, 4, 5, 6, 9, 20, 33, 35, 42, 44, 57, 68, 104, 114, 117, 119, 145, 174, 279, 301, 310, 322, 345, 376, 410, 430, 517, 533, 590, 649, 740, 777, 976, 1159, 1537, 1590, 2345, 2412
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
从第二个素数3开始，得到方程的解
x+y*n=素数[m-1]
或
n=（素数[m-1]+x）/y
n*Prime[m]/或n*Prime[m+1]都是整数。
使用Wagon丢番图求解器模块求解n，然后将它是有理数的特定素数相乘得到整数。
结果数字为正数并按大小排序
以给出输出序列。
这个序列是为了得到一些与素数相关的序列：
{素数[m-1]，素数[m]，素数[m+1]}
通过
素数[m]x+素数[m+1]*y=素数[m-1]
|
|
|
参考文献
|
2001年Bressoud和Wagon教授的计算数理论课程
|
|
|
链接
|
|
|
|
配方奶粉
|
a[out]=Abs[If[IntegerQ[n*Prime[m+1]]，n*Prime[m+1]else n*Price[m]]]，其中n是有理数：n=（Prime[m-1]+x）/y序列按大小排序。
|
|
|
数学
|
清除[n，m，l]丢番图求解[{a_，b_}，c_，n_]：=模块[{d，e}，{d，e}=ExtendedGCD[a，b]；如果[Mod[c，d]==0，则转置[{c*e，{b，-a}}/d]。{1，n}，{}]]；a=表[Table[Simplify[I==2，素数[m]，素数[1]]*（n/.Solve[DiophantineSolve[{Prime[m]、素数[m+1]}、素数[1]，n][l]-素数[m-1]==0，n]）]，{l，2，1，-1}]，{m，2，20}]；联管节[Abs[压扁[a]]]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,未经编辑的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
