

A088531


Numerator of Bigomega(n!)/Omega(n!).


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

2,3


LINKS

Table of n, a(n) for n=2..72.


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


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
Adjacent sequences: A088528 A088529 A088530 * A088532 A088533 A088534


KEYWORD

nonn


AUTHOR

Cino Hilliard, Nov 16 2003


EXTENSIONS

Edited by T. D. Noe, Apr 14 2009


STATUS

approved



