#OK to post homework
#George Spahn, 4-10-2022, Assignment 21

# 2

IsSquareFree := proc(n)
local i:
	for i from 2 to n^(0.5) do
		if irem(n,i*i) = 0 then 
			RETURN(false):
		fi:
	od:
	true:
end: