OFFSET
3,1
FORMULA
a(n) = n*A055527(n)/2.
MAPLE
readlib(issqr): for a from 3 to 80 do for b from 1 by 1 while not issqr(a^2+b^2) do od: printf("%d, ", a*b/2) od: # C. Ronaldo
MATHEMATICA
a[n_] := For[k = 1, True, k++, If[IntegerQ[Sqrt[n^2+k^2]], Return[n k/2]]];
a /@ Range[3, 100] (* Jean-François Alcover, Feb 14 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, May 22 2000
STATUS
approved