login
A034179
Difference between two positive cubes in more than one way.
8
721, 728, 999, 3367, 5768, 5824, 5859, 7992, 8911, 9919, 10621, 12663, 12824, 19467, 19656, 23877, 25669, 26936, 26973, 27937, 28063, 34209, 35208, 35929, 41743, 43561, 46144, 46592, 46872, 49959, 53144, 63936, 68857, 68913, 71288, 77779
OFFSET
1,1
LINKS
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 *)
KEYWORD
easy,nonn,nice
EXTENSIONS
Extended by Ray Chandler, Nov 29 2008
Offset corrected by Giovanni Resta, Mar 17 2020
STATUS
approved