login
A088516
Values k of pairs (j,k) that generate A088319(n).
17
4, 6, 2, 8, 2, 4, 10, 12, 4, 2, 14, 14, 4, 6, 16, 2, 16, 18, 6, 4, 18, 2, 20, 20, 8, 4, 22, 22, 2, 22, 24, 6, 8, 24, 4, 2, 24, 26, 26, 26, 8, 6, 10, 4, 28, 26, 2, 28, 8, 10, 30, 28, 4, 2, 32, 32, 10, 32, 8, 30, 12, 6, 32, 4, 34, 34, 34, 32, 2, 34, 12, 8, 36, 14, 6, 36, 4, 34, 38, 38, 10, 2
OFFSET
1,1
LINKS
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 *)
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Nov 14 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Nov 16 2003
STATUS
approved