program exp1; var i, j, k :

program exp1;
var
  i, j, k : integer;
  a : array[0..100]of integer;
begin
  for i:=0 to 100 do a[i] := i
  for k:=5 downto 2 do
  begin
    for i:=1 to 100 do if ( i mod k) = 0 then a[i]:=0;
    for i:=1 to 99 do
      for j:=1 to 100 - i do
        if a[j] > a[j + 1]then
        begin
          a[j] := a[j] + a[j + 1];
          a[j + 1] := a[j] - a[j + 1];
          a[j] := a[j] - a[j + 1];
        end;
  end;
  j:=1;
  while (a[j]= 0)and (j<100) do j:=j+1;
  for i:=j to 100 do a[0] = a[0]+a[i]; writeln(a[0]);
end.