%I #8 Apr 06 2017 21:22:11
%S 0,1,2,1,2,3,2,2,3,3,4,4,3,4,4,2,3,5,5,5,6,6,6,5,4,6,7,5,5,6,4,3,4,5,
%T 7,7,7,9,9,6,7,10,10,9,9,9,8,6,5,8,10,8,9,11,9,7,7,8,9,8,6,7,6,3,4,7,
%U 8,8,10,11,11,9,9,13,15,12,12,14,11,8,9,12,15,14,14,17,16,11,11,15,15,13,12,12,10,7,6
%N Odd bisection of A284556.
%H Antti Karttunen, <a href="/A284566/b284566.txt">Table of n, a(n) for n = 0..8192</a>
%F a(n) = A284556((2*n)+1).
%F a(n) = A001222(A284564(n)).
%F Other identities. For all n >= 1:
%F A007306(n) = a(n-1) + A284565(n-1).
%t a[n_] := Which[n < 2, n, EvenQ@ n, a[n/2], True, a[(n - 1)/2] + a[(n + 1)/2]]; Table[(a[#] - JacobiSymbol[#, 3])/2 &[2 n + 1], {n, 0, 96}] (* _Michael De Vlieger_, Apr 05 2017 *)
%o (Scheme)
%o (define (A284566 n) (A284556 (+ n n 1)))
%o (define (A284566 n) (A001222 (A284564 n)))
%Y Cf. A001222, A007306, A284556, A284564, A284565.
%K nonn
%O 0,3
%A _Antti Karttunen_, Apr 05 2017