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##&).