|
| |
|
| A303604型 |
| 数字n使得n-1和n都是非方的，Pell方程x1^2-n*y1^2=1和x0^2-（n-1）*y0^2=1的最小正解有rho（n）=log（x1）/log（x0）的记录。 |
|
0
|
|
|
|
3, 6, 7, 13, 61, 157, 241, 409, 421, 1321, 1621, 3541, 4129, 5209, 5701, 8269, 9241, 9769, 11701, 12601, 13729, 18181, 27061, 32341, 39901, 78121, 78541, 118681, 129361, 153469, 189661, 207481, 314161, 431869, 451669, 455701, 507301, 655561, 842521, 979969
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
Jacobson&Williams证明了rho（n）可以任意大，因此这个序列是无限的。
前40个术语中只有6个是复合术语。
|
|
|
链接
|
|
|
|
例子
|
n=61是按顺序排列的，因为x^2-60*y^2=1的最小正解为x=31，x^2-61*y^2=1的最低正解为x=1766319049，所以rho（61）=log（1766319049）/log（31）=6.200……比任何较小的n都大。
|
|
|
数学
|
$MaxExtraPrecision=1000；a[n_]：=如果[IntegerQ[Sqrt[n]]，0，对于[y=1，！IntegerQ[Sqrt[n*y^2+1]]，y++，Null]；y] ；PellSolve[（m_Integer）？正]：=模块[{cf，n，s}，cof=ContinuedFraction[Sqrt[m]]；n=长度[Last[cof]]；如果[OddQ[n]，n=2*n]；s=FromContinuedFraction[Continued Fraction[Sqrt[m]，n]]；{分子[s]，分母[s]}]；f[n_]：=如果[！IntegerQ[Sqrt[n]]，PellSolve[n][[1]，0]；rho[x0_，x1_]：=如果[x0==0||x1==0，0，对数[x1]/Log[x0]]；x0=2；n=3；rhom=0；序列={}；Do[x1=f[n]；ρ1=ρ[x0，x1]；如果[rho1>rhom，则追加到[seq，n]；ρ=ρ1]；x0=x1；n++，{k，1,1000}]；序列
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
