OFFSET
1,1
COMMENTS
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..570
FORMULA
a(n) > 1.
EXAMPLE
1/156^2 + 1/65^2 + 1/45^2 = 1/36^2 = 1/(12*3)^2.
As an array, sequence begins:
156, 65, 45
156, 80, 65,
255, 136, 90,
255, 160, 136,
609, 580, 315,
609, 580, 560,
1295, 444, 315,
1295, 560, 444,
1428, 221, 91,
1560, 1547, 170,
1640, 369, 270,
1640, 480, 369,
1833, 884, 799,
1924, 663, 629,
...
MATHEMATICA
n = 1500; lst = {}; Do[Do[Do[If[GCD[b, c, d] == 1,
r = Sqrt[1/(1/b^2 + 1/c^2 + 1/d^2)];
If[IntegerQ[r], lst = AppendTo[lst, {b, c, d}]]], {d, c - 1}],
{c, b - 1}], {b, n}]; lst//Flatten
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Ralf Steiner, Feb 04 2018
EXTENSIONS
a(28)-a(51) from Giovanni Resta, Feb 06 2018
STATUS
approved