A113902 Product of omega(n!) and bigomega(n!).

0, 1, 4, 8, 15, 21, 32, 44, 52, 60, 80, 95, 120, 132, 144, 168, 203, 224, 264, 288, 304, 320, 369, 405, 423, 441, 468, 495, 560, 590, 660, 715, 737, 759, 781, 825, 912, 936, 960, 1008, 1105, 1144, 1246, 1288, 1330, 1358, 1470, 1545, 1575, 1620, 1650, 1695

Offset

1,3

Comments

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

Links

Table of n, a(n) for n=1..52.

Formula

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

Mathematica

PrimeNu[#]PrimeOmega[#]&/@(Range[60]!) (* Harvey P. Dale, Aug 14 2013 *)

Prog

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

Crossrefs

Sequence in context: A071422 A368897 A212538 * A024916 A212539 A102216

Adjacent sequences: A113899 A113900 A113901 * A113903 A113904 A113905

Keyword

easy,nonn

Author

Cino Hilliard, Jan 29 2006

Status

approved