login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A034179 Difference between two positive cubes in more than one way. 4
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

LINKS

Table of n, a(n) for n=0..35.

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. A014440.

Sequence in context: A186561 A119451 A119452 * A014440 A159295 A154515

Adjacent sequences:  A034176 A034177 A034178 * A034180 A034181 A034182

KEYWORD

easy,nonn,nice

AUTHOR

Erich Friedman

EXTENSIONS

Extended by Ray Chandler, Nov 29 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 17 16:08 EST 2019. Contains 329241 sequences. (Running on oeis4.)