A191188 - OEIS

%I #9 Apr 26 2021 19:33:14

%S 1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,0,1,0,1,0,1,0,0,1,0,1,0,1,0,1,1,0,1,0,

%T 1,0,1,1,0,1,0,1,0,1,0,0,1,0,1,0,1,0,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,1,

%U 0,1,0,1,0,1,0,0,1,0,1,0,1,0,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,0,1,0

%N a(n) = floor(8*n*Pi) - 2*floor(4*n*Pi).

%t f[n_] := Floor[8 n*Pi] - 2*Floor[4 n*Pi];

%t t = Table[f[n], {n, 1, 220}]  (* A191188 *)

%t Flatten[Position[t, 0]]    (* A191194 *)

%t Flatten[Position[t, 1]]    (* A191202 *)

%Y Cf. A191194, A191202.

%K nonn

%O 1

%A _Clark Kimberling_, May 27 2011