OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 2000: # to get all terms <= N
S:= {}:
for x from 1 to floor(1/2 + sqrt(12*N-3)/6) do
S:= S union {seq(x^3-y^3, y= x-1..max(1, ceil(surd(x^3-N, 3))), -2)}
od:
sort(convert(S, list)); # Robert Israel, Jan 21 2019
MATHEMATICA
With[{nn=50}, Take[Select[Union[Abs[#[[2]]-#[[1]]]&/@Subsets[Range[nn]^3, {2}]], OddQ], nn]] (* Harvey P. Dale, Jan 18 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition corrected by Robert Israel, Jan 21 2019
STATUS
approved