w,d=$<.map &:to_i
d.downto(2){|i|w-=w/i/i};p w