login
A088531
Numerator of bigomega(n!)/omega(n!).
1
1, 1, 2, 5, 7, 2, 11, 13, 15, 16, 19, 10, 11, 4, 14, 29, 32, 33, 9, 19, 5, 41, 5, 47, 49, 52, 55, 28, 59, 60, 65, 67, 69, 71, 75, 19, 13, 20, 7, 85, 88, 89, 46, 95, 97, 98, 103, 7, 36, 22, 113, 57, 59, 15, 31, 63, 8, 129, 133, 67, 68, 139, 145, 49, 25, 151, 154, 156, 159, 8, 33
OFFSET
2,3
COMMENTS
a(n) is the numerator of A022559(n)/A000720(n). - Robert Israel, Jan 08 2024
LINKS
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
Sequence in context: A004576 A093200 A095795 * A291756 A286463 A286362
KEYWORD
nonn,look
AUTHOR
Cino Hilliard, Nov 16 2003
EXTENSIONS
Edited by T. D. Noe, Apr 14 2009
STATUS
approved