++$a[$_]for 4,6,8,9,10,12;$k=<>;$\+=!($k%$_)*$a[$k/$_]/36for 2,3,5,6,11,13;print