A114090 Sums of 2 distinct nonnegative cubes.

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

Author

Franklin T. Adams-Watters, Sep 14 2006

Keywords

• nonn

Comments

Except for zero, equivalently sums of at most 2 distinct positive cubes.

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A024670, A003997, A004999, A000578, A001983.

Programs

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