$k=<>;
for$n(1..20){$a+=sin($k*$n)/$n**$n}
print$a;