登录
A189979号
n X n网格(或地理板)上的直角三角形数,相异到同余。
5
0, 1, 4, 9, 17, 26, 39, 53, 71, 91, 114, 136, 169, 197, 231, 267, 310, 346, 397, 437, 492, 548, 606, 654, 729, 791, 858, 928, 1007, 1071, 1173, 1241, 1333, 1423, 1509, 1600, 1728, 1814, 1912, 2015, 2144
抵消
1,3
例子
对于n=3,四个直角三角形为:
**. *.* *.* .*.
*.. *.. ... *..
... ... *.. .*.
MAPLE公司
三角形:=proc(n)局部三角形集,i,j,k,l,A,B,C;三角形集:={}:对于i从0到n,对于j从0到n,对于k从0到ndo,对于l从0到n-do A:=i^2+j^2:B:=k^2+l^2:C:=(i-k)^2+(j-l)^2:如果A^2+B^2+C^2<>2*(A*B+B*C+C*A),则三角形集:od:od:od:返回(TriangleSet);结束:
IsRectangularTriangle:=proc(T)如果T[1]^2+T[2]^2=T[3]^2或T[1]|2+T[3]^2=T[2]^2或T[2]^2+T[3]^2=T[1]^2,则为true,否则为false fi:结束:
a: =proc(n)局部三角形集,矩形三角形集,i;三角形集:=三角形(n):矩形三角形集:={}:对于i从1到nops(三角形集),如果IsRectangularTriangle(TriangleSet[i]),那么RectanguarTriangleSet:={op(RectanglarTriangaleSet),TriangleSet[i]}fi:od:return(nops(RectangularTringleSet));结束:
关键词
非n,更多
作者
马丁·瑞诺2011年5月3日
扩展
a(21)到a(40)来自马丁·瑞诺2011年5月8日
状态
经核准的