sub f{
	my($n)=@_;
	return $m{$n}//=$n==0?1:f(int$n/3)+f(int$n/5);
}
print f(<>+0);