map{int($c=sqrt$a*$a+$_*$_)-$c||print"$a $_ $c
"}3..5e3until$a++>99