Dayana1

var
  a, b, i, q, sum: integer;

begin
  readln(A, B);
  for i := A to B do
  begin
    q := sqr(i);
    sum := sum + q;
  end;
  write(Sum);
end.