A181899 Largest divisor of n!/4 which is less than sqrt(n!)/2.
2, 5, 12, 35, 96, 288, 945, 3150, 10800, 39312, 147420, 571536, 2286144, 9424800, 39984000, 174283200, 779688000, 3573570000, 16761064320, 80379048750, 393826406400, 1969132032000, 10040487256800, 52174220175000, 276080056560000, 1486750296281250
Offset: 4
Keywords
Programs
-
Mathematica
Table[f = n!/4; Select[Divisors[f], # <= Sqrt[f] &][[-1]], {n, 4, 20}]
Comments