A283975 Odd bisection of A264977.

1, 3, 1, 7, 5, 7, 1, 15, 13, 7, 5, 11, 13, 15, 1, 31, 29, 7, 13, 3, 1, 11, 5, 19, 21, 15, 13, 19, 29, 31, 1, 63, 61, 7, 29, 19, 25, 3, 13, 11, 9, 11, 1, 23, 25, 19, 5, 35, 37, 15, 21, 11, 9, 19, 13, 43, 37, 31, 29, 35, 61, 63, 1, 127, 125, 7, 61, 51, 41, 19, 29, 59, 49, 3, 25, 31, 17, 11, 13, 27, 25, 11, 9, 31, 21, 23, 1, 47, 33, 19, 25, 63, 41, 35, 5, 67, 69

Offset

0,2

Links

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

Index entries for sequences related to binary expansion of n

Formula

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

a(n) = A248663(A277324(n)).

A000120(a(n)) = A284266(n).

Mathematica

A264977[n_]:= If[n<2, n, If[EvenQ[n], 2 A264977[n/2], BitXor[A264977[(n - 1)/2], A264977[(n + 1)/2]]]]; Table[A264977[2n + 1], {n, 0, 150}] (* Indranil Ghosh, Mar 28 2017 *)

Prog

(Scheme) (define (A283975 n) (A264977 (+ n n 1)))
(PARI) a(n) = if(n<2, n, if(n%2, bitxor(a((n - 1)/2), a((n + 1)/2)), 2*a(n/2))); for(n=0, 150, print1(a(2*n + 1), ", ")) \\ Indranil Ghosh, Mar 28 2017

Crossrefs

Cf. A000120, A248663, A264977, A277324.

Cf. also A284266.

Sequence in context: A021763 A261693 A138257 * A071043 A101624 A166519

Adjacent sequences: A283972 A283973 A283974 * A283976 A283977 A283978

Keyword

nonn,base

Author

Antti Karttunen, Mar 25 2017

Status

approved