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

Author

Mohammad K. Azarian, Nov 14 2007

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A134890, A134891, A134892, A134893.

Programs

Magma

[Ceiling(n*Exp(Tan(n))): n in [1..60]]; // Vincenzo Librandi, Feb 18 2013

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 *)

PARI

a(n)=ceil(n*exp(tan(n))) \\ Charles R Greathouse IV, Nov 21 2014