OFFSET
0,3
LINKS
Ron Knott, Table of n, a(n) for n = 0..60
D. Rusin, Lattice Problem (Triangles) [Dead link]
D. Rusin, Lattice Problem (Triangles) [Cached copy]
MAPLE
a:=proc(n) local TriangleSet, i, j, k, l, A, B, C; TriangleSet:={}: for i from 0 to n do for j from 0 to n do for k from 0 to n do for l from 0 to n do A:=i^2+j^2: B:=k^2+l^2: C:=(i-k)^2+(j-l)^2: if A^2+B^2+C^2<>2*(A*B+B*C+C*A) then TriangleSet:={op(TriangleSet), sort([sqrt(A), sqrt(B), sqrt(C)])}: fi: od: od: od: od: return(nops(TriangleSet)); end: # Martin Renner, May 03 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Chris Cole (chris(AT)questrel.com), Jun 28 2003
a(36)-a(39) from Martin Renner, May 08 2011
STATUS
approved