A134909 a(n) = floor(n*exp(-cot n)).

0, 3, 3340, 1, 6, 186, 2, 9, 82, 2, 11, 57, 1, 12, 48, 0, 12, 43, 0, 12, 40, 0, 12, 38, 44713, 11, 36, 977, 9, 35, 298, 7, 33, 169, 4, 31, 121, 1, 29, 97, 0, 27, 83, 0, 24, 74, 144422, 20, 67, 1977, 16, 61, 538, 12, 56, 287, 7, 51

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Table[Floor[n * Exp[ - Cot[n]]], {n, 70}] (* Vincenzo Librandi, Feb 18 2013 *)

Prog

(Magma) [Floor(n*Exp(-Cot(n))): n in [1..60]]; // Vincenzo Librandi, Feb 18 2013

Crossrefs

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

Sequence in context: A036520 A359130 A193447 * A286215 A259157 A003831

Adjacent sequences: A134906 A134907 A134908 * A134910 A134911 A134912

Keyword

nonn,easy

Author

Mohammad K. Azarian, Nov 14 2007

Extensions

Offset corrected by Mohammad K. Azarian, Nov 19 2008

Status

approved