Const Fi='TAUTHUY.INP';
Fo='TAUTHUY.OUT';
Var f,g: text;
n,s,t: int64;
Function BCNN(a,b: int64): int64;
Var UCLN: int64;
Begin
BCNN:=a*b;
While a<>b do
If a>b then a:=a-b
Else b:=b-a;
UCLN:=a;
BCNN:=BCNN div UCLN;
End;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Readln(f,n);
Read(f,s,t);
Write(g,n div BCNN(s,t));
Close(f);
Close(g);
End.