Вычислить функцию через переменную

Вычислите значение функции через переменную:

Pestiferous (n)
       r = 0;
       for i = 1 to n do
           for j = 1 to i do
               for k = j to i + j do
                   for l = 1 to i + j - k do
                           r = r + 1;
       return (r)

Я пробывал посчитать через суммы и получил r = n(n + 1)(n + 2)(n + 3) / 24, но ответ не прошёл проверку компьютером.