|
%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
|
