for 0..499999 {$/=$_%4950;my$c=(($!=$_ div 4950)*$!+$/*$/)**.5;$!>$c%1==0 <$/&&say "$! $/ $c"}