|
%I #15 Mar 05 2020 04:55:50
%S 1,1,5,1,7,7,1,1,9,9,3,1,11,11,3,11,1,5,13,13,1,13,3,1,15,15,5,3,15,1,
%T 5,17,17,7,17,17,1,5,7,3,19,19,19,19,5,1,19,3,21,21,7,1,21,21,7,5,23,
%U 9,23,1,23,23,3,23,7,5,9,1,23,3,25,25,7,25,25,5,25,1,7,9,27,25,27,27,5,11,1
%N Values j of pairs (j,k) that generate A088319(n).
%H Ray Chandler, <a href="/A088515/b088515.txt">Table of n, a(n) for n = 1..10000</a>
%t terms = 1000; jmax = 100; kmax = 200;
%t 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, 2]]& (* _Jean-François Alcover_, Mar 05 2020 *)
%Y Cf. A088319, A088516, A088546, A089545-A089552, A089554-A089558.
%K nonn
%O 1,3
%A _Lekraj Beedassy_, Nov 14 2003
%E Corrected and extended by _Ray Chandler_, Nov 16 2003
|
