login
Odd bisection of A284556.
5

%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