A135947 a(n)=(floor(3*S2(n)/2)) mod 2, where S2(n) is the binary weight of n.

0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0

Offset

0,1

Links

Table of n, a(n) for n=0..83.

Mathematica

Table[Mod[Floor[(3*Total[IntegerDigits[n, 2]])/2], 2], {n, 0, 100}] (* Harvey P. Dale, Jan 08 2024 *)

Crossrefs

Sequence in context: A275606 A106549 A075897 * A360123 A211487 A101040

Adjacent sequences: A135944 A135945 A135946 * A135948 A135949 A135950

Keyword

easy,nonn

Author

Ctibor O. Zizka, Mar 02 2008

Status

approved