A134894 Ceiling(n*exp(tan n)).

5, 1, 3, 13, 1, 5, 17, 1, 6, 20, 1, 7, 21, 19608, 7, 22, 560, 6, 23, 188, 5, 23, 113, 3, 22, 85, 2, 22, 71, 1, 20, 62, 1, 19, 57, 83616, 16, 52, 1449, 14, 49, 416, 10, 45, 228, 6, 42, 160, 3, 39, 126, 1, 35, 106, 1, 31, 93, 240699

Offset

1,1

Links

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

Maple

A134894:=n->ceil(n*exp(tan(n))): seq(A134894(n), n=1..100); # Wesley Ivan Hurt, Nov 20 2014

Mathematica

Table[Ceiling[n * Exp[Tan[n]]], {n, 100}] (* Vincenzo Librandi, Feb 18 2013 *)

Prog

(Magma) [Ceiling(n*Exp(Tan(n))): n in [1..60]]; // Vincenzo Librandi, Feb 18 2013
(PARI) a(n)=ceil(n*exp(tan(n))) \\ Charles R Greathouse IV, Nov 21 2014

Crossrefs

Cf. A134890, A134891, A134892, A134893.

Sequence in context: A248130 A365457 A365456 * A143700 A036790 A201847

Adjacent sequences: A134891 A134892 A134893 * A134895 A134896 A134897

Keyword

nonn,easy

Author

Mohammad K. Azarian, Nov 14 2007

Status

approved