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