A034179 Difference between two positive cubes in more than one way.

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

Author

Erich Friedman

Keywords

• easy
• nonn
• nice

Links

• Giovanni Resta, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A014439, A014440, A014441, A333376, A333377, A181123, A265625.

Programs

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 *)

Extensions

Extended by Ray Chandler, Nov 29 2008

Offset corrected by Giovanni Resta, Mar 17 2020