($N,$K,$M)=glob<>;
`factor $N`=~s/( \d+)\1*/push@_,[$1,$&=~y! !!*$K]/ger;
@z=1;
for(@_){
	($a,$n)=@$_;
	@t=();
	$x=1;
	for(1..$n){
		$x*=$a;
		$x>$M&&last;
		for$z(@z){
			$z*$x>$M&&last;
			push@t,$z*$x
		}
	}
	@z=sort{$a-$b}@z,@t
}
print@z.$/