OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
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 *)
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 *)
CROSSREFS
KEYWORD
easy,nonn,nice
AUTHOR
EXTENSIONS
Extended by Ray Chandler, Nov 29 2008
Offset corrected by Giovanni Resta, Mar 17 2020
STATUS
approved