%I #13 Sep 08 2022 08:45:32
%S 1,1,1,2,6,15,14,6,3,4,11,27,32,16,7,6,12,34,51,30,12,8,13,36,67,49,
%T 20,10,13,35,77,73,32,14,14,31,79,98,50,20,15,28,74,119,76,29,17,25,
%U 66,131,107,44,21,23,56,131,140,65,27
%N a(n) = floor(n*exp(cos(n))).
%H Vincenzo Librandi, <a href="/A134891/b134891.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Floor[n Exp[Cos[n]]], {n, 60}] (* _Vincenzo Librandi_, Feb 08 2013 *)
%o (Magma) [Floor(n*Exp(Cos(n))): n in [1..60]]; // _Vincenzo Librandi_, Feb 08 2013
%o (PARI) a(n)=floor(n*exp(cos(n))) \\ _Charles R Greathouse IV_, Jul 01 2013
%Y Cf. A134890.
%K nonn
%O 1,4
%A _Mohammad K. Azarian_, Nov 14 2007
|