5 lines
105 B
Text
5 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]
|