This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A284566 #8 Apr 06 2017 21:22:11
%S A284566 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 A284566 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 A284566 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 A284566 Odd bisection of A284556.
%H A284566 Antti Karttunen, <a href="/A284566/b284566.txt">Table of n, a(n) for n = 0..8192</a>
%F A284566 a(n) = A284556((2*n)+1).
%F A284566 a(n) = A001222(A284564(n)).
%F A284566 Other identities. For all n >= 1:
%F A284566 A007306(n) = a(n-1) + A284565(n-1).
%t A284566 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 A284566 (Scheme)
%o A284566 (define (A284566 n) (A284556 (+ n n 1)))
%o A284566 (define (A284566 n) (A001222 (A284564 n)))
%Y A284566 Cf. A001222, A007306, A284556, A284564, A284565.
%K A284566 nonn
%O A284566 0,3
%A A284566 _Antti Karttunen_, Apr 05 2017