OFFSET
1,1
COMMENTS
A PPT can be drawn as a closed lattice polygon with the hypotenuse intersecting no lattice points other than at its start and end. Consequently the PPT is subject to Pick's theorem.
LINKS
Eric W. Weisstein, MathWorld: Pick's Theorem
Wikipedia, Pick's theorem
FORMULA
Let x and y be integers used to generate the set of PPT's where x > y > 0, x + y is odd and GCD(x, y) = 1. Then the PPT area A = x*y(x^2-y^2) and the lattice points lying on the PPT boundary B = x^2-y^2+2x*y+1. Applying Pick's theorem gives internal lattice points I = A - B/2 + 1. Hence I = (x^2-y^2-1)*(2x*y-1)/2.
EXAMPLE
a(5)=156 as when x = 5 and n = 4, the PPT generated has area A = 180 and sides 9, 40, 41. Hence 156=180-(9+40+1)/2+1 and is the 5th such occurrence.
MATHEMATICA
getpairs[k_] := Reverse[Select[IntegerPartitions[k, {2}], GCD[#[[1]], #[[2]]]==1 &]]; getlist[j_] := (newlist=getpairs[j]; Table[(newlist[[m]][[1]]^2-newlist[[m]][[2]]^2-1)*(2 newlist[[m]][[1]]*newlist[[m]][[2]]-1)/2, {m, 1, Length[newlist]}]); maxterms = 60; Sort[Flatten[Table[getlist[2p+1], {p, 1, 10*maxterms}]]][[1;; maxterms]] (* corrected with suggestion from Giovanni Resta, May 07 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Frank M Jackson, May 07 2013
STATUS
approved