1,5

Table of n, a(n) for n=1..90.

f[n_]:=Block[{k=n-1, m=Sqrt[n/2], a}, While[k>m&&!IntegerQ[(a=Sqrt[n^2-k^2])], k--]; If[k<=m, 0, a]]; Table[f[n], {n, 90}]

Cf. A083025, A046083, A046084, A009000, A009003, A108708.

A046080 gives the number of Pythagorean triangles with hypotenuse n.

Sequence in context: A321432 A220093 A097017 * A046775 A221787 A204060

Adjacent sequences: A108704 A108705 A108706 * A108708 A108709 A108710

nonn

Sébastien Dumortier, Jun 20 2005

Extended by Ray Chandler, Dec 20 2011

approved