%I #5 Jun 04 2019 19:12:08
%S 3,12,60,360,2520,13440,120960,1209600,13305600,159667200,2075673600,
%T 29059430400,435891456000,6974263296000,118562476032000,
%U 2134124568576000,40548366802944000,810967336058880000
%N n! divided by prime whose index is the integer part of log(n).
%e 7! = 5040, floor(log(7)) = 1, prime(1)=2 and 5040/2 = 2520.
%p f(n) = for(x=3,n,print1(x!/prime(floor(log(x)))","))
%t Table[n!/Prime[Floor[Log[n]]],{n,3,20}] (* _Harvey P. Dale_, Jun 04 2019 *)
%K nonn
%O 3,1
%A _Cino Hilliard_, Dec 02 2003