Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #10 Dec 26 2017 03:22:51
%S 343,3375,12167,21952,29791,59319,103823,166375,216000,250047,357911,
%T 493039,658503,778688,857375,1092727,1367631,1404928,1685159,1906624,
%U 2048383,2460375,2924207,3442951,3796416,4019679,4657463,5359375
%N Cubes which are not the sum of three squares.
%C This sequence was inspired by e-mail from Ray Chandler, Nov 07 2007
%H Robert Israel, <a href="/A134738/b134738.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A004215(n)^3. [From _Ray Chandler_, Jan 29 2009]
%p N:= 10^10: # to get all terms <= N
%p sort([seq(seq(4^(3*i) * (8*j + 7)^3, j = 0 .. floor((N^(1/3)/4^i - 7)/8)), i = 0 .. floor(log[4](N^(1/3))))]); # _Robert Israel_, Dec 26 2017
%t b = Table[x^3, {x, 1, 300}]; a = {}; Do[Do[Do[AppendTo[a, (x^2 + y^2 + z^2)^3], {x, 0, 30}], {y, 0, 30}], {z, 0, 30}]; Union[a]; Complement[b, a] (*Artur Jasinski*)
%t Select[Range[200]^3,SquaresR[3,#]==0&] (* _Harvey P. Dale_, Feb 03 2015 *)
%Y Cf. A004215, A134739.
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 07 2007
%E Extended by _Ray Chandler_, Jan 29 2009