OFFSET
0,3
LINKS
PROG
(Scheme)
;; Standalone iterative implementation:
(define (A277011 n) (let loop ((s 0) (n n) (r 0) (i 2) (f 1)) (cond ((zero? n) (+ s (* r f))) ((even? n) (loop (+ s (* r f)) (/ n 2) 0 (+ 1 i) (* i f))) (else (loop s (/ (- n 1) 2) (+ 1 r) i f)))))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Sep 25 2016
STATUS
approved