Factovisors

Powers of a prime in factorisation of n! 
power =0 ;
for ( j = prime[i] ; j <= n ; j *= prime[i] )
power += n/j ;
return power