DL
только если вариации на тему
(let [id "ID", amount 5]
(map-indexed #(str %2 (inc %1)) (repeat amount (str id "_"))))
(let [id "ID", amount 5]
(map str (repeat amount (str id "_")) (range 1 Long/MAX_VALUE)))
(let [id "ID", amount 5]
(map str (repeat amount id) (repeat "_") (range 1 Long/MAX_VALUE)))
(map-indexed #(str %2 "_" (inc %1)) (repeat amount id))