I can beat 2 characters.
How about this (66 chars):

$n=length$a++*$a/2;map{map{printf" %$n.d",++$k}2..$_;print$/}0..$a
[download]

There are two "\n", I know, but writes exactly what I want... :-)
Hopes