OFFSET
2,3
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 2..10000
FORMULA
Let B = number of prime divisors of n! with multiplicity, O = number of distinct prime divisors of n! Then a(n) = numerator of B/O.
EXAMPLE
a(4!) = bigomega(4!) / omega(4!) = 4/2 = 2
MAPLE
N:= 100:
W:= ListTools:-PartialSums(map(numtheory:-bigomega, [$1..N])):
seq(numer(W[i]/numtheory:-pi(i)), i=2..N); # Robert Israel, Jan 08 2024
MATHEMATICA
Table[Numerator[PrimeOmega[n!]/PrimeNu[n!]], {n, 2, 80}] (* Harvey P. Dale, Jan 17 2015 *)
PROG
(PARI) for(x=2, 100, x1=x!; y=bigomega(x1)/omega(x1); print1(numerator(y)", "))
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Cino Hilliard, Nov 16 2003
EXTENSIONS
Edited by T. D. Noe, Apr 14 2009
STATUS
approved