login
Product of omega(n!) and bigomega(n!).
0

%I #5 Oct 01 2013 17:58:22

%S 0,1,4,8,15,21,32,44,52,60,80,95,120,132,144,168,203,224,264,288,304,

%T 320,369,405,423,441,468,495,560,590,660,715,737,759,781,825,912,936,

%U 960,1008,1105,1144,1246,1288,1330,1358,1470,1545,1575,1620,1650,1695

%N Product of omega(n!) and bigomega(n!).

%C omega(x!) is the number of primes <= x.

%F omega(x): number of distinct prime divisors of x. bigomega(x): number of prime divisors of x, counted with multiplicity.

%t PrimeNu[#]PrimeOmega[#]&/@(Range[60]!) (* _Harvey P. Dale_, Aug 14 2013 *)

%o (PARI) omegafactxbigomegafact(n) = { local(x); for(x=1,n, print1(omega(x!)*bigomega(x!)",") ) }

%K easy,nonn

%O 1,3

%A _Cino Hilliard_, Jan 29 2006