|
| |
|
|
A083875
|
|
One-sixth the areas of primitive Heronian triangles sorted.
|
|
3
| |
|
|
1, 2, 4, 5, 6, 7, 10, 11, 12, 14, 15, 19, 20, 21, 22, 26, 28, 30, 33, 34, 35, 36, 39, 40, 42, 44, 45, 48, 50, 51, 55, 56, 60, 65, 66, 68, 70, 76, 77, 78, 80, 84, 85, 87, 88, 91, 95, 104, 105, 110, 114, 115, 119, 120, 124, 126, 130, 132, 133, 140, 144, 146
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| The Mathematica program examines all primitive Heronian triangles having longest side <= 900, which guarantees that we have found all triangles with area/6 <= 150. - T. D. Noe (noe(AT)sspectra.com), Jun 22 2004
|
|
|
MATHEMATICA
| nn=900; lst={}; Do[s=(a+b+c)/2; If[IntegerQ[s] && GCD[a, b, c]==1, area2=s(s-a)(s-b)(s-c); If[area2>0 && IntegerQ[Sqrt[area2]], AppendTo[lst, Sqrt[area2]]]], {a, nn}, {b, a}, {c, b}]; Union[Select[lst, #<nn&]]/6
|
|
|
CROSSREFS
| Cf. A072294.
Sequence in context: A138620 A098166 A007238 * A165291 A080762 A047570
Adjacent sequences: A083872 A083873 A083874 * A083876 A083877 A083878
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Lekraj Beedassy (blekraj(AT)yahoo.com), Jun 18 2003
|
|
|
EXTENSIONS
| More terms from T. D. Noe (noe(AT)sspectra.com), Jun 22 2004
|
| |
|
|
