Var i,n:longint;x,sum:real;
Begin
  read(x,n);
  for i:=1 to n do
  sum+=sin(i*x);
  writeln(sum:3:3); // Округление до 3 знаков после запятой
End.