$w=1;
for(1..<>){
$c=" ";
$c="
",$w++if$_*2>=$w*$w+$w;
print$_.$c
}