OFFSET
1,2
COMMENTS
n! divided by the product of factorials of all proper divisors of n is not always an integer; e.g., when n = 24 the quotient is 7436429/48. See A075422.
EXAMPLE
a(12) = 12! / (2!*3!*4!*6!) = 2310.
MATHEMATICA
Select[Table[ n!/ Apply[ Times, Drop[ Divisors[n], -1]! ], {n, 1, 23}], IntegerQ]
Select[Table[n!/Times@@(Most[Divisors[n]]!), {n, 30}], IntegerQ] (* Harvey P. Dale, Aug 01 2020 *)
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Amarnath Murthy, Sep 09 2002
EXTENSIONS
Edited by Robert G. Wilson v, Sep 14 2002
First Mathematica program modified by Harvey P. Dale, Aug 01 2020
STATUS
approved