while {[incr i]<41} {puts [expr -~$i*$i/2]}