Аккуратный способ применить функцию к каждому n-му элементу последовательности?

Какой изящный способ отображения функции каждому n-му элементу последовательности? Что-то вроде (map-every-nth fn coll n), чтобы он возвращал исходную последовательность только с преобразованием каждого n-го элемента, например. (карта -каждый -n-й вкл. (диапазон 16 )4 )вернет (0 1 2 4 4 5 6 8 8 9 10 12 12 13 14 16)