A253787 - OEIS

%I #6 Jan 18 2015 19:05:04

%S 1,2,7,28,124,554,2520,11304,50958,229914,1037436,4682542,21136380,

%T 95409878

%N Row sums of irregular tables A252753 & A252755.

%F 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).

%o (Scheme)

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

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

%Y Cf. A253788 (the corresponding products).

%Y Cf. A252737, A252753, A252755.

%K nonn,more

%O 0,2

%A _Antti Karttunen_, Jan 13 2015