var
  sum, itog: real;
  sroki, i: integer;

begin
  readln(sum, sroki);
  itog := sum;
  for i := 1 to sroki do
    itog := itog + (sum * (0.04 + i * 0.01));
  writeln(itog);
end.