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 A034179 #21 Mar 19 2020 05:38:05 %S A034179 721,728,999,3367,5768,5824,5859,7992,8911,9919,10621,12663,12824, %T A034179 19467,19656,23877,25669,26936,26973,27937,28063,34209,35208,35929, %U A034179 41743,43561,46144,46592,46872,49959,53144,63936,68857,68913,71288,77779 %N A034179 Difference between two positive cubes in more than one way. %H A034179 Giovanni Resta, <a href="/A034179/b034179.txt">Table of n, a(n) for n = 1..10000</a> %t A034179 fQ[n_] := Block[{r = Reduce[0 < y < x && n == x^3 - y^3, {x, y}, Integers]}, If[r === False || Head[r] === And, False, Length[r] >= 2]]; Select[ Range[77780], If[ fQ[#], Print[#]; True, False] &] (* _Jean-François Alcover_, Apr 11 2011 *) %t A034179 With[{nn=50},Take[Sort[Transpose[Select[Tally[#[[2]]-#[[1]]&/@Subsets[ Range[ nn*20]^3,{2}]],#[[2]]>1&]][[1]]],nn]] (* _Harvey P. Dale_, Mar 09 2016 *) %Y A034179 Cf. A014439, A014440, A014441, A333376, A333377, A181123, A265625. %K A034179 easy,nonn,nice %O A034179 1,1 %A A034179 _Erich Friedman_ %E A034179 Extended by _Ray Chandler_, Nov 29 2008 %E A034179 Offset corrected by _Giovanni Resta_, Mar 17 2020