OFFSET
1,1
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000
MATHEMATICA
terms = 1000; jmax = 100; kmax = 200;
Reap[Do[If[CoprimeQ[j, k], e = j^2 - j k + k^2/2; f = j k; If[e > f, Sow[{e^2 + f^2, j, k}]]], {j, 1, jmax}, {k, 2, kmax, 2}]][[2, 1]] // Sort // #[[;; terms, 3]]& (* Jean-François Alcover, Mar 05 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Nov 14 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Nov 16 2003
STATUS
approved