let k = stdin.ReadLine() |> double let mutable ans = 0. let mutable n = 1. while (n < 1000000.) do ans <- ans + sin (k * n) / (n ** n) n <- n + 1. ans |> printfn "%A"