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

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

Crossrefs

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

Sequence in context: A301509 A101263 A187561 * A200638 A322104 A100122

Adjacent sequences: A088512 A088513 A088514 * A088516 A088517 A088518

Keyword

nonn

Author

Lekraj Beedassy, Nov 14 2003

Extensions

Corrected and extended by Ray Chandler, Nov 16 2003

Status

approved