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