A070747 - OEIS

%I #17 Mar 23 2021 15:38:09

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

%T 1,-1,-1,-1,1,1,1,-1,-1,-1,1,1,1,-1,-1,-1,1,1,1,1,-1,-1,-1,1,1,1,-1,

%U -1,-1,1,1,1,-1,-1,-1,1,1,1,-1,-1,-1,-1,1,1

%N a(n) = signum(sin(n)), where signum=A057427.

%C a(n) <> 0 for n>0.

%F a(n) = (-1)^A032615(n) for n>0. - _Michel Marcus_, Mar 20 2021

%e For n=10: sin(10) = sin(10-2*Pi) < 0, as Pi < 10-2*Pi < 2*Pi, therefore a(10) = signum(sin(10)) = -1.

%o (PARI) a(n)=(-1)^(n/Pi%2\1) \\ _Charles R Greathouse IV_, Jun 13 2013

%o (PARI) a(n) = if (n==0, 0, (-1)^(n\Pi%2)); \\ _Michel Marcus_, Mar 20 2021

%Y Cf. A000493, A000494, A032615, A070748, A070751, A070752.

%K sign,easy

%O 0,1

%A _Reinhard Zumkeller_, May 04 2002