A284566 Odd bisection of A284556.

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

Offset

0,3

Links

Antti Karttunen, Table of n, a(n) for n = 0..8192

Formula

a(n) = A284556((2*n)+1).

a(n) = A001222(A284564(n)).

Other identities. For all n >= 1:

A007306(n) = a(n-1) + A284565(n-1).

Mathematica

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 *)

Prog

(Scheme)
(define (A284566 n) (A284556 (+ n n 1)))
(define (A284566 n) (A001222 (A284564 n)))

Crossrefs

Cf. A001222, A007306, A284556, A284564, A284565.

Sequence in context: A096862 A029309 A049819 * A079056 A341839 A366509

Adjacent sequences: A284563 A284564 A284565 * A284567 A284568 A284569

Keyword

nonn

Author

Antti Karttunen, Apr 05 2017

Status

approved