|
%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
|
