OFFSET
0,3
PROG
(Scheme)
; MIT Scheme
(define (A153883 n) (let loop ((n n) (z 0) (i 2) (f 1)) (cond ((zero? n) z) (else (loop (floor->exact (/ n i)) (+ (* f (modulo n i)) z) (1+ i) (* f (+ i 1)))))))
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Antti Karttunen, Jan 03 2009
STATUS
approved