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,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

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

Sequence in context: A186561 A119451 A119452 * A014440 A345558 A345812

Adjacent sequences: A034176 A034177 A034178 * A034180 A034181 A034182

Keyword

easy,nonn,nice

Author

Erich Friedman

Extensions

Extended by Ray Chandler, Nov 29 2008

Offset corrected by Giovanni Resta, Mar 17 2020

Status

approved