while {[incr n]<88} {puts [expr round($n+sqrt(2*$n))]}