I used the following code to found if a specific number is a perfect square:
Clear["Global`*"]; ParallelTable[ If[IntegerQ[Sqrt[ ...]], ..., Nothi