|
%I #6 Feb 17 2016 17:25:48
%S 0,2,7,18,17,48,56,80,67,122,136,194,204,268,281,328,291,378,396,498,
%T 510,640,675,792,790,886,965,1098,1093,1208,1248,1344,1227,1378,1356,
%U 1530,1538,1792,1815,2016,2008,2218,2339,2602,2619,2892,2970,3208,3150,3294,3385,3586,3691,4012,4174,4440,4367,4554,4644
%N Antidiagonal sums of array A268715: a(n) = Sum_{k=0..n} A003188(A006068(n)+A006068(n-k)).
%H Antti Karttunen, <a href="/A268837/b268837.txt">Table of n, a(n) for n = 0..4096</a>
%F a(n) = Sum_{k=0..n} A003188(A006068(n)+A006068(n-k)).
%o (Scheme)
%o (define (A268837 n) (add (lambda (k) (A003188 (+ (A006068 k) (A006068 (- n k))))) 0 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. A003188, A006068.
%Y Cf. also A268720, A268836.
%K nonn
%O 0,2
%A _Antti Karttunen_, Feb 15 2016
|
