|
| |
|
| 21085年 |
| 对于k=-3且0<c<=10^n的本原勾股线样三元组a^2+b^2=c^2+k的数目。 |
|
6
|
|
|
|
3, 30, 293, 2881, 28871, 288685, 2886366, 28868362, 288673693, 2886752763
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
第一作者推测a（n）/10^n作为n->inf是1/（2*sqrt（3））=0.28867。。。
|
|
|
链接
|
|
|
|
例子
|
a（1）=3，因为有3个解（a，b，c）作为（2，3，4），（5，6，8），（4，9，10），其中0<c<=10^1。
|
|
|
数学
|
countTriples[m_，k_]：=模块[{c2，c2add，total=0，fax，g}，Do[c2=c^2+k；如果[c2<2，继续[]]；c2添加=c2；而[EvenQ[c2od]，c2odd/=2]；如果[c2dodd==1，如果[OddQ[Log[2，c2]]，合计++]；继续[]]；如果[Mod[c2add，4]==3，继续[]]；g=GCD【c2添加，100947】；如果[g！=1&g^2！=GCD[c2add，10190296809]，继续[]]；fax=映射[{Mod[#[[1]]，4]，#[[2]]}&，FactorInteger[c2add]]；如果[Apply[Or，Map[#[[1]]==3&&OddQ[#[2]]&，fax]]，继续[]]；fax=案例[fax，{1，aa_}:>aa+1]；fax=上限[应用[次数，传真]/2]；合计+=传真，{c，m}]；总计]（*由Wolfram Research的Daniel Lichtblau提供*）
|
|
|
交叉参考
|
|
|
|
关键字
|
更多,非n
|
|
|
作者
|
|
|
|
扩展
|
发现的前几个术语蒂托·皮耶扎斯三世詹姆斯·沃尔德比（j-Waldby（AT）pat7.com）。随后的术语由Andrzej Kozlowski（akoz（AT）mimuw.edu.pl）、Daniel Lichtblau（danl（AT）wolfram.com）发现。
|
|
|
状态
|
经核准的
|
| |
|
|
