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