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