|
%I #17 Sep 07 2019 15:21:01
%S 1,8,9,27,28,35,64,65,72,91,125,126,133,152,189,216,217,224,243,280,
%T 341,343,344,351,370,407,468,512,513,520,539,559,576,637,728,729,730,
%U 737,756,793,854,855,945,1000,1001,1008,1027,1064,1072,1125,1216,1241,1331
%N Sums of 2 distinct nonnegative cubes.
%C Except for zero, equivalently sums of at most 2 distinct positive cubes.
%H Robert Israel, <a href="/A114090/b114090.txt">Table of n, a(n) for n = 1..10000</a>
%p N:= 2000: # to get all terms <= N
%p S:= select(`<=`,{seq(seq(a^3 + b^3, b = 0 .. a-1),a=0..floor(N^(1/3)))},N):
%p sort(convert(S,list)); # _Robert Israel_, May 31 2018
%t Select[Union@ Flatten[Table[i^3 + j^3, {i, 11}, {j, 0, i-1}]], # <= 11^3 &] (* _Giovanni Resta_, May 31 2018 *)
%t Module[{upto=15},Select[Union[Total/@Subsets[Range[0,upto]^3,{2}]],#<= upto^3&]] (* _Harvey P. Dale_, Sep 07 2019 *)
%Y Cf. A024670, A003997, A004999, A000578, A001983.
%K nonn
%O 1,2
%A Franklin T. Adams-Watters, Sep 14 2006
|
