This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A088516 #15 Mar 05 2020 04:55:57 %S A088516 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, %T A088516 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, %U A088516 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 %N A088516 Values k of pairs (j,k) that generate A088319(n). %H A088516 Ray Chandler, <a href="/A088516/b088516.txt">Table of n, a(n) for n = 1..10000</a> %t A088516 terms = 1000; jmax = 100; kmax = 200; %t A088516 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 *) %Y A088516 Cf. A088319, A088515, A088546, A089545-A089552, A089554-A089558. %K A088516 nonn %O A088516 1,1 %A A088516 _Lekraj Beedassy_, Nov 14 2003 %E A088516 Corrected and extended by _Ray Chandler_, Nov 16 2003