login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A068969 Areas of integer Heronian triangles [A068967(n), prime(A068967(n)), A068968(n)]. 4
6, 210, 528, 1680, 1800, 5304, 6930, 3150, 4650, 21000, 32760, 69342, 53550, 2170560, 2200200, 2501070, 646800, 4777080, 4796550, 11865840, 12243840, 12863760, 18064200, 30510480, 3232320, 66023100, 70691400, 47977380, 144357720, 185560830, 156128700, 320843040 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Giovanni Resta, Table of n, a(n) for n = 1..120

Eric Weisstein's World of Mathematics, Heronian Triangle.

Eric Weisstein's World of Mathematics, Heron's Formula.

EXAMPLE

a(5) = 37: [37, A000040(37), A068968(5)] = [37,157,130], with s = (36+157+130)/2 = 162: Area^2 = s*(s-37)*(s-157)*(s-130) = 162*125*5*32 = 3240000 = 1800*1800, therefore a(5) = 1800.

MATHEMATICA

area[{a_, b_, c_}] := Block[{s = (a + b + c)/2}, Sqrt[s (s-a) (s-b) (s-c)]]; zz[n_] := Block[{s, p = Prime[n], t, z, A}, s = Solve[(n^2 - 2 n p + p^2 - z) (z - n^2 - 2 n p - p^2) == t^2 && z>0 && t>0, {t, z}, Integers]; If[s == {}, {}, z = Sort@ Select[Sqrt[z /. s], IntegerQ]]; Select[Table[{n, p, e}, {e, z}], IntegerQ[A = area[#]] && A > 0 &]]; area /@ Join @@ Parallelize@ Array[zz, 4300] (* Giovanni Resta, Apr 20 2020 *)

CROSSREFS

Cf. A046131, A055595, A068966.

Sequence in context: A120436 A136742 A334285 * A335715 A094805 A055193

Adjacent sequences:  A068966 A068967 A068968 * A068970 A068971 A068972

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Mar 30 2002

EXTENSIONS

Erroneous term 25070627 removed and more terms from Giovanni Resta, Apr 20 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 13 00:27 EDT 2020. Contains 336441 sequences. (Running on oeis4.)