A294073 Numbers that are the sum of 2 cubes > 1.

16, 35, 54, 72, 91, 128, 133, 152, 189, 224, 243, 250, 280, 341, 351, 370, 407, 432, 468, 520, 539, 559, 576, 637, 686, 728, 737, 756, 793, 854, 855, 945, 1008, 1024, 1027, 1064, 1072, 1125, 1216, 1241, 1339, 1343, 1358, 1395, 1456, 1458, 1512, 1547, 1674, 1729, 1736, 1755, 1792, 1843, 1853, 1944, 2000, 2060

Offset: 1

Author

Ilya Gutkovskiy, Feb 07 2018

Keywords

• nonn

Examples

			133 is in the sequence because 133 = 2^3 + 5^3.
		

Links

• Robert Israel, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to sums of cubes

Crossrefs

Cf. A000578, A003325, A004999, A024670, A085989, A086119.

Programs

Maple

N:= 3000: # to get all terms <= N
M := floor(N^(1/3)):
sort(convert(select(`<=`, {seq(seq(i^3+j^3, j = 2 .. i), i = 2 .. M)}, N), list)) # Robert Israel, Feb 08 2018

Mathematica

nmax = 2060; f[x_] := Sum[x^k^3, {k, 2, 14}]^2; Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, nmax}]]