|
%I #6 Dec 29 2015 03:09:56
%S 0,0,1,0,2,0,1,1,3,2,2,2,2,1,2,2,4,2,3,1,3,0,1,1,3,3,2,1,2,1,1,3,6,2,
%T 2,4,4,0,2,2,4,4,5,3,4,0,4,1,4,2,4,3,3,2,2,1,3,4,3,5,2,1,4,2,5,1,3,3,
%U 5,4,3,3,5,3,1,2,3,3,3,2,5,4,4,4,4,2,2,4,6,3,3,2,4,1,2,3,6,5,4,3,4,3,5,0,5,2,4,2,3,3,4,2,4,5,3,4,3,2,2,2,3,2,4,4,5,3,4,2,4
%N Number of nonleading 0-bits in bijective base-3 reversal of n: a(n) = A080791(A263273(n)).
%H Antti Karttunen, <a href="/A265336/b265336.txt">Table of n, a(n) for n = 0..16384</a>
%F a(n) = A080791(A263273(n)).
%F a(0) = 0, a(2n) = 1 + a(A265339(n)), a(2n+1) = a(A265339(n)).
%F a(n) = A265340(n) - A265337(n).
%o (Scheme, two variants)
%o (definec (A265336 n) (if (zero? n) 0 (+ (A265336 (A265339 n)) (if (even? n) 1 0))))
%o (define (A265336 n) (A080791 (A263273 n)))
%Y Cf. A080791, A263273, A265337, A265339, A265340.
%K nonn,base
%O 0,5
%A _Antti Karttunen_, Dec 18 2015
|
