login
Row sums of A268719: a(n) = Sum_{k=0..n} A003188(A006068(n)+A006068(k)).
3

%I #7 Feb 14 2016 14:56:53

%S 0,4,13,18,53,55,63,80,217,217,205,244,234,264,305,328,881,877,841,

%T 916,790,864,977,988,900,956,1021,1070,1197,1235,1267,1344,3553,3541,

%U 3457,3604,3310,3456,3681,3684,3100,3244,3453,3478,3917,3931,3883,4048,3528,3636,3757,3850,4021,4111,4199,4320,4745,4817

%N Row sums of A268719: a(n) = Sum_{k=0..n} A003188(A006068(n)+A006068(k)).

%H Antti Karttunen, <a href="/A268720/b268720.txt">Table of n, a(n) for n = 0..8191</a>

%F a(n) = Sum_{k=0..n} A003188(A006068(n)+A006068(k)).

%o (Scheme)

%o (define (A268720 n) (add (lambda (k) (A268715bi n k)) 0 n)) ;; Code for A268715bi given in A268715.

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

%Y Row sums of triangle A268719.

%Y Cf. A003188, A006068, A268715.

%K nonn

%O 0,2

%A _Antti Karttunen_, Feb 13 2016