4 lines
105 B
Text
4 lines
105 B
Text
s = Range[50]^2;
|
|
c = Range[1, Ceiling[Surd[Max[s], 3]]]^3;
|
|
Take[Complement[s, c], 30]
|
|
Intersection[s, c]
|