|
|
A114090
|
|
Sums of 2 distinct nonnegative cubes.
|
|
2
|
|
|
1, 8, 9, 27, 28, 35, 64, 65, 72, 91, 125, 126, 133, 152, 189, 216, 217, 224, 243, 280, 341, 343, 344, 351, 370, 407, 468, 512, 513, 520, 539, 559, 576, 637, 728, 729, 730, 737, 756, 793, 854, 855, 945, 1000, 1001, 1008, 1027, 1064, 1072, 1125, 1216, 1241, 1331
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Except for zero, equivalently sums of at most 2 distinct positive cubes.
|
|
LINKS
|
|
|
MAPLE
|
N:= 2000: # to get all terms <= N
S:= select(`<=`, {seq(seq(a^3 + b^3, b = 0 .. a-1), a=0..floor(N^(1/3)))}, N):
|
|
MATHEMATICA
|
Select[Union@ Flatten[Table[i^3 + j^3, {i, 11}, {j, 0, i-1}]], # <= 11^3 &] (* Giovanni Resta, May 31 2018 *)
Module[{upto=15}, Select[Union[Total/@Subsets[Range[0, upto]^3, {2}]], #<= upto^3&]] (* Harvey P. Dale, Sep 07 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Franklin T. Adams-Watters, Sep 14 2006
|
|
STATUS
|
approved
|
|
|
|