A134905 a(n) = floor(n*exp(-sin n)).
0, 0, 2, 8, 13, 7, 3, 2, 5, 17, 29, 20, 8, 5, 7, 21, 44, 38, 16, 8, 9, 22, 53, 59, 28, 12, 10, 21, 56, 80, 46, 18, 12, 20, 53, 97, 70, 28, 14, 18, 48, 105, 98, 43, 19, 18, 41, 103, 127, 65, 26, 19, 35, 94, 149, 94, 36, 21, 31, 81
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[Floor(n*Exp(-Sin(n))): n in [1..60]]; // Vincenzo Librandi, Feb 18 2013
-
Mathematica
Table[Floor[n*Exp[- Sin[n]]], {n, 70}] (* Vincenzo Librandi, Feb 18 2013 *)
Extensions
Offset corrected by Mohammad K. Azarian, Nov 19 2008