var
  x, y, a: real;
  k: byte;

begin
  readln(x, a);
  for l: byte := 1 to 4 do
  begin
    k := 1;
    for b: byte := 1 to l do
      k *= b;
    y += (power(x, (1 + l * 3))) / k;
  end;
  writeln(y * 5 * a);
end.