0,2

Table of n, a(n) for n=0..13.

a(0) = 1; for n>1: a(n) = Sum_{k = A000079(n-1) .. A000225(n)} A252753(k) = Sum_{k = 2^(n-1) .. (2^n)-1} A252753(k).

(Scheme)

(define (A253787 n) (if (zero? n) 1 (add A252753 (A000079 (- n 1)) (A000225 n))))

(define (add intfun lowlim uplim) (let sumloop ((i lowlim) (res 0)) (cond ((> i uplim) res) (else (sumloop (+ 1 i) (+ res (intfun i)))))))

Cf. A253788 (the corresponding products).

Cf. A252737, A252753, A252755.

Sequence in context: A291091 A215973 A143927 * A060379 A002931 A088702

Adjacent sequences: A253784 A253785 A253786 * A253788 A253789 A253790

nonn,more

Antti Karttunen, Jan 13 2015

approved