%I
%S 721,728,999,3367,5768,5824,5859,7992,8911,9919,10621,12663,12824,
%T 19467,19656,23877,25669,26936,26973,27937,28063,34209,35208,35929,
%U 41743,43561,46144,46592,46872,49959,53144,63936,68857,68913,71288,77779
%N Difference between two positive cubes in more than one way.
%t 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] &] (* _JeanFrançois Alcover_, Apr 11 2011 *)
%t 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 Cf. A014440.
%K easy,nonn,nice
%O 0,1
%A _Erich Friedman_
%E Extended by _Ray Chandler_, Nov 29 2008
