

A088515


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


17



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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


CROSSREFS

Cf. A088319, A088516, A088546, A089545A089552, A089554A089558.
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



