login
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
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):
sort(convert(S, list)); # Robert Israel, May 31 2018
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