|
%I #16 Sep 08 2022 08:45:32
%S 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,
%T 85,2,22,71,1,20,62,1,19,57,83616,16,52,1449,14,49,416,10,45,228,6,42,
%U 160,3,39,126,1,35,106,1,31,93,240699
%N Ceiling(n*exp(tan n)).
%H Vincenzo Librandi, <a href="/A134894/b134894.txt">Table of n, a(n) for n = 1..1000</a>
%p A134894:=n->ceil(n*exp(tan(n))): seq(A134894(n), n=1..100); # _Wesley Ivan Hurt_, Nov 20 2014
%t Table[Ceiling[n * Exp[Tan[n]]], {n, 100}] (* _Vincenzo Librandi_, Feb 18 2013 *)
%o (Magma) [Ceiling(n*Exp(Tan(n))): n in [1..60]]; // _Vincenzo Librandi_, Feb 18 2013
%o (PARI) a(n)=ceil(n*exp(tan(n))) \\ _Charles R Greathouse IV_, Nov 21 2014
%Y Cf. A134890, A134891, A134892, A134893.
%K nonn,easy
%O 1,1
%A _Mohammad K. Azarian_, Nov 14 2007
|
