登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
1963年 正整数a,其中有一个满足a≤b的(1/8)-勾股三元组(a,b,c)。 7
4, 6, 8, 8, 8, 10, 11, 12, 12, 12, 12, 13, 13, 14, 14, 15, 16, 16, 16, 17, 18, 20, 20, 21, 22, 24, 24, 24, 24, 24, 24, 26, 26, 27, 28, 28, 28, 29, 30, 30, 30, 31, 32, 32, 32, 33, 34, 35, 36, 36, 36, 36, 38, 39, 39, 40, 40, 40, 40, 40, 42, 42, 42, 43, 44, 44, 44, 45 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
请参见A195770型有关k-Pythagorean三元组、原始k-Pytha三元组和相关序列列表的定义。
链接
数学
z8=900;z9=250;z7=200;
k=1/8;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];
表[x[n],{n,1,z7}](*A196355号*)
y[n]:=u[[3n-1]];
表[y[n],{n,1,z7}](*A196356型*)
z[n]:=u[[3 n]];
表[z[n],{n,1,z7}](*A196357号*)
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}];
x2=删除[f,位置[f,0]](*A196358号*)
g=表[y1[n],{n,1,z9}];
y2=删除[g,位置[g,0]](*A196359号*)
h=表[z1[n],{n,1,z9}];
z2=删除[h,位置[h,0]](*A196360型*)
交叉参考
囊性纤维变性。A195770型A196356型A196357号A196358号.
关键词
非n
作者
克拉克·金伯利2011年10月1日
状态
已批准

查找|欢迎|维基|寄存器|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月29日04:23。包含371264个序列。(在oeis4上运行。)