A134909 - OEIS

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

%S 0,3,3340,1,6,186,2,9,82,2,11,57,1,12,48,0,12,43,0,12,40,0,12,38,

%T 44713,11,36,977,9,35,298,7,33,169,4,31,121,1,29,97,0,27,83,0,24,74,

%U 144422,20,67,1977,16,61,538,12,56,287,7,51

%N a(n) = floor(n*exp(-cot n)).

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

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

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

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

%K nonn,easy

%O 1,2

%A _Mohammad K. Azarian_, Nov 14 2007

%E Offset corrected by _Mohammad K. Azarian_, Nov 19 2008