login
Partial sums of A276438.
2

%I #5 Sep 04 2016 17:20:56

%S 0,1,2,3,2,3,4,5,4,5,4,5,4,5,4,5,4,5,6,7,6,7,6,5,7,8,7,6,8,9,8,9,8,7,

%T 9,10,9,8,7,8,7,9,10,9,8,10,11,10,9,8,7,8,7,8,7,8,7,8,9,10,9,10,9,8,

%U 10,11,10,9,8,9,8,9,10,11,10,9,8,9,8,10,11,10,11,10,9,8,9,10,11,10,11,12,13,12,11,10,9,8,9,10

%N Partial sums of A276438.

%H Antti Karttunen, <a href="/A276439/b276439.txt">Table of n, a(n) for n = 0..10000</a>

%F a(0) = 0; for n >= 1, a(n) = A276438(n) + a(n-1).

%o (Scheme, with memoization-macro definec)

%o (definec (A276439 n) (if (zero? n) n (+ (A276438 n) (A276439 (- n 1)))))

%Y Cf. A274647, A276438

%Y Cf. also A064289, A078759.

%Y Differs from A078759 for the first time at n=24, where a(24)=7 while A078759(24)=6.

%K nonn

%O 0,3

%A _Antti Karttunen_, Sep 04 2016