A335658
Numbers that are not the sum of 3 nonzero squares and a positive cube.
Original entry on oeis.org
0, 1, 2, 3, 5, 6, 8, 9, 16, 21, 24, 40
Offset: 1
-
n = 5 * 10^4.;
t = Union@Flatten@Table[x^2 + y^2 + z^2 + w^3, {x,(n/3)^(1/2)}, {y,x,((n-x^2)/2)^(1/2)},{z,y,(n-x^2-y^2)^(1/2)}, {w,(n-x^2-y^2-z^2)^(1/3)}];
Complement[Range[0,n],t]
A335659
Numbers that are not the sum of 3 nonzero squares and a positive 5th power.
Original entry on oeis.org
0, 1, 2, 3, 5, 6, 8, 9, 11, 14, 16, 17, 21, 24, 26, 29, 32, 33, 40, 48, 64, 72, 96, 112, 144, 160, 192, 240
Offset: 1
-
n = 10^5;
t = Union@Flatten@Table[x^2 + y^2 + z^2 + w^5, {x, (n/3)^(1/2)}, {y, x, ((n-x^2)/2)^(1/2)}, {z, y, (n-x^2-y^2)^(1/2)}, {w, 1, (n-x^2-y^2-z^2)^(1/5)}];
Complement[Range[0, n], t]
Comments