|
%I #18 Sep 08 2022 08:45:59
%S 1,0,-7,1,0,-3,2,0,-2,2,0,-1,3,1,-1,4,1,0,7,1,0,113,1,0,-7,1,0,-3,2,0,
%T -2,2,0,-1,3,1,-1,4,1,0,7,1,0,57,1,0,-8,1,0,-3,2,0,-2,2,0,-1,3,1,-1,4,
%U 1,0,6,1,0,38,1,0,-8,1,0,-3,2,0,-2,2,0,-1,3
%N a(n) = ceiling(cot(n)).
%H Vincenzo Librandi, <a href="/A195911/b195911.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Ceiling[Cot[n]], {n, 100}] (* _T. D. Noe_, Mar 16 2012 *)
%o (PARI) a(n)=ceil(1/tan(n)) \\ _Charles R Greathouse IV_, Feb 07 2013
%o (Magma) [Ceiling(1/Tan(n)): n in [1..80]]; // _Vincenzo Librandi_, Feb 16 2013
%Y Cf. A195910, A000503, A037448, A005657, A000493, A000480, A000494, A000484.
%K sign,easy
%O 1,3
%A _Mohammad K. Azarian_, Mar 15 2012
|
