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

Author

Ctibor O. Zizka, Mar 02 2008

Keywords

• easy
• nonn

Programs

Mathematica

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