A191162 a(n) = [4*n*Pi] - 2*[2*n*Pi], where [ ]=floor.

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

Offset

1

Links

Table of n, a(n) for n=1..116.

Mathematica

f[n_] := Floor[4 n*Pi] - 2*Floor[2 n*Pi];
t = Table[f[n], {n, 1, 220}]  (* A191162 *)
Flatten[Position[t, 0]]    (* A191214 *)
Flatten[Position[t, 1]]    (* A191215 *)

Crossrefs

Cf. A191214, A191215.

Sequence in context: A291197 A269927 A246146 * A234046 A285565 A188076

Adjacent sequences: A191159 A191160 A191161 * A191163 A191164 A191165

Keyword

nonn

Author

Clark Kimberling, May 27 2011

Status

approved