OFFSET
0,3
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..1279
PROG
(Scheme, with Antti Karttunen's IntSeq-library)
(define (CatBaseSum lista) (let loop ((digits (reverse lista)) (i 1) (s 0)) (if (null? digits) s (loop (cdr digits) (+ i 1) (+ s (* (car digits) (A000108 i)))))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 22 2014
STATUS
approved