Wolfram Language (Mathematica), 2222 21 bytes
Times@@Range[#1##&@@Range[#,1,-#2]&
-1 thanks to attinat: Times --> 1##&
Explanation: use Range
to make a list of the values {n, n-k, n-2k, n-3k, ...}
, stopping before going below 1 (i.e., stopping just right). Then multiply all numbers in this list with Times
(or 1##&
).