A134908 - OEIS

%I #10 Sep 08 2022 08:45:32

%S 1,4,3341,2,7,187,3,10,83,3,12,58,2,13,49,1,13,44,1,13,41,1,13,39,

%T 44714,12,37,978,10,36,299,8,34,170,5,32,122,2,30,98,1,28,84,1,25,75,

%U 144423,21,68,1978,17,62,539,13,57,288,8,52

%N Ceiling(n*exp(-cot(n))).

%H Vincenzo Librandi, <a href="/A134908/b134908.txt">Table of n, a(n) for n = 1..1000</a>

%t Table[Ceiling[n Exp[-Cot[n]]], {n, 70}] (* _Vincenzo Librandi_, Feb 18 2013 *)

%o (Magma) [Ceiling(n*Exp(-Cot(n))): n in [1..60]]; // _Vincenzo Librandi_, Feb 18 2013

%Y Cf. A134890, A134891, A134892, A134902, A134903, A134904, A134905, A134906, A134907.

%K nonn,easy

%O 1,2

%A _Mohammad K. Azarian_, Nov 14 2007