%I #12 Aug 09 2015 02:06:23
%S 0,22,8,18,0,2,1,7725,26,32,0,3,4,0,55,45,643,3,6,1,130,59,150,2,9,5,
%T 827,79,110,0,10,9,16959920772588043033920967018589279,110,105,89164,
%U 10,13,0,179,112,511,7,16,6,465,128,228,1,17,13
%N a(n) = floor(n*exp(-sec(n))).
%H Vincenzo Librandi, <a href="/A134911/b134911.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Floor[n Exp[-Sec[n]]], {n, 70}] (* _Vincenzo Librandi_, Feb 18 2013 *)
%Y Cf. A134892, A134902, A134903, A134904, A134905, A134906, A134907, A134908, A134909, A134910.
%K nonn,easy
%O 1,2
%A _Mohammad K. Azarian_, Nov 14 2007
%E Offset corrected by _Mohammad K. Azarian_, Nov 19 2008
|