($n,$k)=<>;print+(grep{$%=0;$%+=~~rand(6)-~~($_>$k?rand 6:3+rand 3)for 1..$n;$%<0}1..1e6)/1e6