OFFSET
1,2
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
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