OFFSET
4,1
COMMENTS
MATHEMATICA
Table[f = n!/4; Select[Divisors[f], # <= Sqrt[f] &][[-1]], {n, 4, 20}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Mar 31 2012
STATUS
approved