OFFSET
2,2
COMMENTS
n!/{prime(1)!*prime(2)!*prime(3)!...*prime(k)!} where k is the largest integer such that {prime(1)!*prime(2)!*prime(3)!...*prime(k)!} divides n!.
EXAMPLE
a(8) = 8!/2!3!5! = 28, as 28/7! is not an integer.
a(12) = 12!/{2!*3!*5!*7!} = 66.
MATHEMATICA
f[n_] := Block[{k = 1}, While[ IntegerQ[ n!/Product[ Prime[i]!, {i, k}]], k++ ]; n!/Product[Prime[i]!, {i, k - 1}]]; Table[ f[n], {n, 2, 28}] (* Robert G. Wilson v, Jun 21 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 30 2003
EXTENSIONS
More terms from Ray Chandler, Oct 06 2003
Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, Jun 08 2007
STATUS
approved