A255336 - OEIS

%I #7 Feb 21 2015 15:37:48

%S 0,2,2,2,4,2,2,4,4,4,2,2,2,4,6,4,4,4,4,2,2,2,4,6,4,6,6,4,2,4,6,4,4,4,

%T 4,2,2,2,4,6,4,6,4,4,6,6,6,6,6,4,2,4,6,4,6,6,4,2,4,6,4,4,4,4,2,2,2,4,

%U 6,4,6,4,4,6,6,6,6,4,4,6,6,6,8,6,6,6,6,6,6,4,2,4,6,4,6,4,4,6,6,6,6,6,4,2,4,6,4,6,6,4,2,4,6,4,4,4,4,2,2

%N a(n) = A005811(A255056(n)); After the initial zero, the first differences of A255056.

%C First differences of A255056, shifted once right (prepended with zero).

%H Antti Karttunen, <a href="/A255336/b255336.txt">Table of n, a(n) for n = 0..8590</a>

%F a(n) = A005811(A255056(n)).

%F a(0) = 0; and for n >= 1: a(n) = A255056(n) - A255056(n-1).

%F a(n) = 2*A255337(n).

%o (Scheme, two versions)

%o (define (A255336 n) (A005811 (A255056 n)))

%o (define (A255336 n) (if (zero? n) n (- (A255056 n) (A255056 (- n 1)))))

%Y First differences of A255056.

%Y Terms of A255337 doubled.

%Y Cf. A005811.

%Y Analogous sequence: A213712.

%K nonn

%O 0,2

%A _Antti Karttunen_, Feb 21 2015