map{$c>int($c=sqrt$'*$'+$_*$_)||print"$' $_ $c
"for//..5e3}3..100