integer,parameter::sosu(6)=(/2,3,5,7,11,13/),gosei(6)=(/4,6,8,9,10,12/)
  integer::seki(8:156)=0,i,j
  read *,K
  do i=1, 6
     do j=1,6
        seki(sosu(i)*gosei(j)) = seki(sosu(i)*gosei(j)) + 1
     end do
  end do
  print '("0",f0.15)',DBLE(seki(K))/36.0_8
end program