|
%I #5 Sep 12 2016 17:02:54
%S 0,2,2,4,2,2,4,4,6,2,2,4,4,4,4,6,4,6,6,4,8,2,2,4,4,4,4,6,4,6,6,4,8,6,
%T 4,8,8,4,6,6,4,8,6,4,6,8,4,8,8,10,2,2,4,4,4,4,6,4,6,6,4,8,6,4,8,8,4,6,
%U 6,4,8,6,4,6,8,4,8,8,10,6,4,6,8,4,8,8,10,8,8,10,4,6,6,4,8,6,4,6,8,4,8,8,10,6,4,6,8,4,8,8,8,8,8,10
%N After a(0)=0, the first differences of A276623.
%H Antti Karttunen, <a href="/A276604/b276604.txt">Table of n, a(n) for n = 0..6250</a>
%F a(n) = A053735(A276623(n)).
%F a(0) = 0; for n >= 1, a(n) = A276623(n) - A276623(n-1).
%o (Scheme, two alternatives)
%o (define (A276604 n) (A053735 (A276623 n)))
%o (define (A276604 n) (if (zero? n) n (- (A276623 n) (A276623 (- n 1)))))
%Y Cf. A053735, A276623, A276605 (terms divided by 2).
%K nonn,base
%O 0,2
%A _Antti Karttunen_, Sep 11 2016
|
