OFFSET
0,4
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..16796
FORMULA
EXAMPLE
PROG
(Scheme, two alternative implementations)
;; One based on recurrence:
(definec (A244232 n) (if (not (zero? (A176137 n))) (A000120 (A244230 n)) (+ (A000120 (-1+ (A244230 n))) (A244232 (- n (A197433 (-1+ (A244230 n))))))))
;; Another using function A244159raw given in A244159:
(define (A244232 n) (apply + (vector->list (A244159raw n))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 25 2014
STATUS
approved