A276585 - OEIS

%I #5 Sep 08 2016 17:53:18

%S 0,3,3,2,3,4,3,3,3,3,5,3,3,5,5,3,5,3,4,3,5,3,4,2,3,5,3,4,4,3,5,3,4,3,

%T 3,3,5,3,4,3,5,3,5,3,4,3,3,4,3,5,3,4,3,6,3,3,5,3,4,3,6,5,3,5,3,4,3,6,

%U 3,4,3,5,3,4,3,6,3,6,3,5,3,4,3,6,3,5,3,3,5,3,4,3,6,3,5,3,2,3,5,3,4,3,6,3,5,3,4,3,5,3,4,3,6,3,5,3,3,3,3,5,3

%N After a(0)=0, the first differences of A276583.

%H Antti Karttunen, <a href="/A276585/b276585.txt">Table of n, a(n) for n = 0..10095</a>

%F a(n) = A053610(A276583(n)).

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

%o (Scheme, two alternatives)

%o (define (A276585 n) (A053610 (A276583 n)))

%o (define (A276585 n) (if (zero? n) n (- (A276583 n) (A276583 (- n 1)))))

%Y Cf. A053610, A276583.

%K nonn

%O 0,2

%A _Antti Karttunen_, Sep 07 2016