(defn tri-number [n]
      (/ (* n (+ n 1)) 2))

(defn tri-seq [n]
      (map tri-number (range 1 (inc n))))