var
i,n,m,k:longint;
begin
read(n,m);
i:=n-1;
while i<=m+n do
begin
i:=i+1;
if (i mod 6<>0) and (i mod 7<>0) then k:=k+250;
end;
write(k);
end.

求助