OFFSET
0
COMMENTS
LINKS
PROG
(Scheme)
(define (A265333 n) (if (zero? n) n (let loop ((f 1) (i 2)) (let ((nextf (* i f))) (if (> nextf n) (if (< n (* 2 f)) 1 0) (loop nextf (+ 1 i)))))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 25 2015
STATUS
approved