A088515 Values j of pairs (j,k) that generate A088319(n).

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, 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, 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

Offset: 1

Author

Lekraj Beedassy, Nov 14 2003

Keywords

• nonn

Links

• Ray Chandler, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A088319, A088516, A088546, A089545-A089552, A089554-A089558.

Programs

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, 2]]& (* Jean-François Alcover, Mar 05 2020 *)

Extensions

Corrected and extended by Ray Chandler, Nov 16 2003