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 A095868 #18 Jul 17 2020 03:49:36
%S A095868 3,1,7,3,18,4,11,6,27,3,2,16,29,15,12,22,7,36,50,34,38,58,19,14,31,25,
%T A095868 28,26,38,20,45,21,32,25,17,25,15,19,33,29,50,23,86,94,19,12,49,13,23,
%U A095868 16,3,9,44,13,72,5,38,69,44,3,12,107,31,1,71,1,22,96,65,48,69,48,46,59
%N A095868 Values x associated with A096545(n), sorted on z, then on y and finally on x.
%C A095868 For 0<x<y<z, the primitive quadruples (x,y,z,w) satisfy x^3 + y^3 + z^3 = w^3.
%H A095868 David A. Corneth, <a href="/A095868/b095868.txt">Table of n, a(n) for n = 1..13798</a> (terms corresponding to z <= 8000)
%H A095868 Fred Richman, <a href="http://math.fau.edu/Richman/cubes.htm">Sums of Three Cubes</a>
%e A095868 a(1)=3 corresponding to the quadruple (3,4,5,6).
%t A095868 s[w_] := Solve[0 < x < y < z && x^3 + y^3 + z^3 == w^3 && GCD[x, y, z, w] == 1, {x, y, z}, Integers];
%t A095868 xyzw = Reap[For[w = 1, w <= 200, w++, sw = s[w]; If[sw != {}, Print[{x, y, z, w} /. sw; Sow[{x, y, z, w} /. sw ]]]]][[2, 1]] // Flatten[#, 1]&;
%t A095868 SortBy[xyzw, {#[[3]]&, #[[2]]&, #[[1]]&}][[All, 1]] (* _Jean-François Alcover_, Mar 06 2020 *)
%Y A095868 Primitive quadruples (x, y, z, w) = (A095868, A095867, A096545, A096546).
%K A095868 nonn
%O A095868 1,1
%A A095868 _Ray Chandler_, Jun 28 2004