print-1+grep sqrt(@n*@n-$_*$_)!~/\./,@n=1..<>