OFFSET
1,1
REFERENCES
J. A. MacDougall, "Heron Triangles With Sides In Arithmetic Progression", Journal of Recreational Mathematics 31(3) 2002-2003, pp. 192-194.
LINKS
Jean-François Alcover, Table of n, a(n) for n = 1..1000
J. A. MacDougall, Heron Triangles With Sides In Arithmetic Progression, ResearchGate, 2005.
MATHEMATICA
terms = 1000;
nmax = 12 terms;
okQ[n_] := AllTrue[FactorInteger[n][[All, 1]], MatchQ[Mod[#, 12], 1|11]&];
A072330 = Select[Range[nmax], okQ];
a[n_] := Module[{a, b, c, d, p}, d = If[n <= Length[A072330], A072330[[n]], Print["nmax = ", nmax, " insufficient"]; Exit[]]; If[n==1, 4, For[b = 2d, True, b++, a = b-d; c = b+d; p = (a+b+c)/2; If[IntegerQ[p] && IntegerQ[ Sqrt[p(p-a)(p-b)(p-c)]] && GCD[a, b, c] == 1, Return[b]]]]];
a /@ Range[terms] (* Jean-François Alcover, Mar 06 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Sep 19 2003
EXTENSIONS
Extended by Ray Chandler, Jul 03 2004
STATUS
approved