A134910 - OEIS

%I #9 Jun 22 2013 16:06:04

%S 1,23,9,19,1,3,2,7726,27,33,1,4,5,1,56,46,644,4,7,2,131,60,151,3,10,6,

%T 828,80,111,1,11,10,16959920772588043033920967018589280,111,106,89165,

%U 11,14,1,180,113

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

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

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

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

%K nonn,easy

%O 1,2

%A _Mohammad K. Azarian_, Nov 14 2007