OFFSET
1,1
LINKS
Peter Kagey, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Heronian Triangle
FORMULA
a(n) = A051518(n)/2.
MATHEMATICA
hp[p_] := Catch@ Block[{c, q=p/2}, Do[c = p-a-b; If[IntegerQ@ Sqrt[q (q-a) (q-b) (q-c)], Throw@ True], {a, p/2-1}, {b, p/2-a+1, p/2-1}]; False]; Select[Range@ 105, hp[2 #] &] (* Giovanni Resta, Jun 14 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Kagey, Jun 08 2018
STATUS
approved