|
| |
|
| A195872号 |
| 正整数a，其中有满足a≤b的（-1/2）-勾股三元组（a，b，c）。 |
|
7
|
|
|
|
1, 2, 3, 4, 5, 5, 6, 6, 6, 7, 7, 8, 9, 9, 9, 10, 10, 10, 11, 11, 11, 12, 12, 12, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 16, 16, 16, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 19, 20, 20, 20, 21, 21, 21, 22, 22, 22, 22, 22, 23, 23, 23, 24, 24, 24, 25, 25, 26, 26, 26, 26
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
请参见A195770型有关k-Pythagorean三元组、原始k-Pytha三元组和相关序列列表的定义。
|
|
|
链接
|
|
|
|
例子
|
（-1/2）-毕达哥拉斯三元组：
1,2,2
2,4,4
3,6,6
4,8,8
5,48,47
|
|
|
数学
|
z8=800；z9=400；z7＝100；
k=-1/2；c[a_，b_]：=平方[a^2+b^2+k*a*b]；
d[a_，b_]：=如果[IntegerQ[c[a，b]]，{a，b，c[a、b]}，0]
t[a_]：=表[d[a，b]，{b，a，z8}]
u[n_]：=删除[t[n]，位置[t[n]，0]]
表[u[n]，{n，1，15}]
t=表[u[n]，{n，1，z8}]；
压扁[位置[t，{}]]
u=压扁[删除[t，位置[t，{}]]；
x[n_]：=u[[3 n-2]]；
y[n]：=u[[3n-1]]；
z[n]：=u[[3 n]]；
x1[n_]：=如果[GCD[x[n]，y[n]
y1[n_]：=如果[GCD[x[n]，y[n]
z1[n_]：=如果[GCD[x[n]，y[n]
f=表[x1[n]，{n，1，z9}]；
g=表[y1[n]，{n，1，z9}]；
h=表[z1[n]，{n，1，z9}]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
