$N=<>; for$T(0..20){ for$G(0..$T){ $x=$N-5*$T-2*$G; if($x>=0&&$x%3==0){ ++$%; } } } print$%,$/