|
| |
|
|
A034179
|
|
Difference between two positive cubes in more than one way.
|
|
1
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
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] &] (* From Jean-François Alcover, Apr 11 2011 *)
|
|
|
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 (erich.friedman(AT)stetson.edu)
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Nov 29 2008
|
| |
|
|
