OFFSET
1,1
COMMENTS
Every primitive Pythagorean quadruple (PPQ) generates a distinct Heronian triangle. This sequence is the area of such a triangle. If a, b, c, d form a PPQ where a^2 + b^2 + c^2 = d^2 it generates a primitive Heronian triangle whose three sides are b^2 + c^2, a^2 + c^2, a^2 + b^2. Its semiperimeter is d^2 and its area is a*b*c*d. It has an inradius and three exradii as a*b*c/d, b*c*d/a, a*c*d/b, a*b*d/c respectively.
a(n) == 0 mod 12.
A210484 is a subsequence because an integer Soddyian triangle has area m^2n^2(m+n)^2(m^2+mn+n^2) and semiperimeter (m^2+mn+n^2)^2 = m^2*n^2 + n^2(m+n)^2 + m^2(m+n)^2 where m >= n and GCD(m,n) = 1. This is a PPQ.
LINKS
Eric Weisstein's World of Mathematics, Pythagorean Quadruple.
Wikipedia, Pythagorean quadruple.
EXAMPLE
a(5)=1188 because the 5th occurrence of a PPQ sorted by the product of its term is (2, 6, 9, 11) and 1188 = 11*9*6*2.
MATHEMATICA
lst = {}; Do[lst=Join[lst, Select[PowersRepresentations[k^2, 3, 2], Times@@#!=0&&GCD@@#==1 &]], {k, 1, 100}]; lst1=Sort@(Table[{a, b, c}=lst[[n]]; a*b*c*Sqrt[a^2+b^2+c^2], {n, 1, Length@lst}]); lst1[[1;; 50]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Frank M Jackson, Nov 28 2023
STATUS
approved