Чёрт ногу сломит, ага:

; определяем сигму
(define (sigma fun start stop [step 1])
  (for/sum ([n (in-range start stop step)])
    (fun n)))
; определяем последовательность f(n)=n
(define (f n) n)
; находим частичную сумму первых десяти элементов последовательности f(n)
(sigma f 1 10) ; => 45

А вот что мы делаем, когда нам нужно просто суммировать все элементы в списке:

(define (sum list) (apply + list))
(sum '(1 2 3)) ; => 6

Комментарии, думаю, излишни.