{
TASK:RTRI
LANG:PASCAL
}
program rtri2;
label next;
var m, x1, x2, x3 : byte;
    n, y1, y2, y3 : byte;
    trg           : longint;
begin
readln(n,m);
trg := 0;
for x1 := 0 to m do
 for y1 := 0 to n do
  for x2 := 0 to m do
   for y2 := 0 to n do
    for x3 := 0 to m do
     for y3 := 0 to n do
       begin
        if ((x1 = x2) and (y1 = y2)) then goto next;
        if ((x1 = x3) and (y1 = y3)) then goto next;
        if ((x2 = x3) and (y2 = y3)) then goto next;
        if ( sqr(x1-x2)+sqr(y1-y2) + sqr(x2-x3)+sqr(y2-y3) = sqr(x3-x1)+sqr(y3-y1) ) then trg := trg + 1;
        if ( sqr(x1-x2)+sqr(y1-y2) + sqr(x3-x1)+sqr(y3-y1) = sqr(x2-x3)+sqr(y2-y3) ) then trg := trg + 1;
        if ( sqr(x2-x3)+sqr(y2-y3) + sqr(x3-x1)+sqr(y3-y1) = sqr(x1-x2)+sqr(y1-y2) ) then trg := trg + 1;

next :
       end;
trg := trg div 6;

writeln(trg);
end.