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

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

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

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

Sequence in context: A066252 A065165 A377033 * A114538 A181096 A026239

Adjacent sequences: A088513 A088514 A088515 * A088517 A088518 A088519

Keyword

nonn

Author

Lekraj Beedassy, Nov 14 2003

Extensions

Corrected and extended by Ray Chandler, Nov 16 2003

Status

approved